Fórum Tratar campos #242796

Estou fazendo uma aplicação que possui uns trintas campos que devem ser tratatos, estes devem ser tratados individualmente, por sua vez ao tratá -los , quando forço um erro, ele exibe a tela indicando o erro e quando dou ok, ele passa,deveria deixar eu acrescentar o campo que esta com o erro e ele passa direto !
Vou manda o codigo , ele ta com uns erros na cara dura!
procedure TDataModule2.ClientDataSetBeforePost(DataSet: TDataSet);
begin
if FRMinserir.DBEdit2.Text = ´´ then
begin
ShowMessage(´Insira a espécie do pedido´);
FRMinserir.DBEdit2.SetFocus;
DataModule1.Abrir.Execute;
end;

if FRMinserir.DBEdit3.Text = ´´ then
begin
ShowMessage(´Insira a o sistema do pedido saida´);
end;
if FRMinserir.DBEdit4.Text = ´´ then
begin
ShowMessage(´Insira a data de transição´);
end;
if FRMinserir.DBEdit5.Text = ´´ then
begin
ShowMessage(´Insira o numero da atualização´);
end;
if FRMinserir.DBEdit6.Text = ´´ then
begin
ShowMessage(´Insira a data de atualização´);
end;
if FRMinserir.DBEdit7.Text = ´´ then
begin
ShowMessage(´Insira o tipo de ajuste´);
end;
if FRMinserir.DBEdit8.Text = ´´ then
begin
ShowMessage(´Insira a espécie do pedido´);
end;
if FRMinserir.DBEdit9.Text = ´´ then
begin
ShowMessage(´Insira o modo de pagamento´);
end;

Isso é um parte dele, tem ainda!
Aguardo respostas !
Obrigado!