Fórum Duvida com o Post em ADO #267418

Salve Salve...

tenho essa procedure que eh de um Botao...
Nessa procedure ele da um Post...
Mas antes ele checa o preenchimento de alguns campos...
Mas achei que isso eh muito simples...
Gostaria de alguma coisa mais logica e eficiente...
Se puderem me ajudar...

bd : Access

Obrigado...

if
Trim(DBEdit1.Text) = ´´ then
begin
Showmessage(´Digite o Nome do Responsável´);
dbedit1.SetFocus;
Exit;
end;

if
Trim(dbedit7.Text) = ´´ then
begin
Showmessage(´Digite o Nome do Aluno´);
dbedit7.SetFocus;
exit;
end;

if
Trim(dbedit10.Text) = ´´ then
begin
Showmessage(´Informe a Idade do Aluno´);
dbedit10.SetFocus;
Exit;
end;

if
DBComboBox1.ItemIndex = -1 then
begin
Showmessage(´Digite o Periodo Interessado´);
DBComboBox1.SetFocus;
Exit;
End;

if
DBComboBox2.ItemIndex = -1 then
begin
showmessage(´Informe se Precisa de Apadrinhamento´);
DBComboBox2.SetFocus;
Exit;
end;

if
DBComboBox3.ItemIndex = -1 Then
Begin
Showmessage(´Informe se Estuda´);
DBComboBox3.SetFocus;
Exit;
end;


if
Trim(dm.qryInteressadosEndereco_Interessado.Value) = ´´ then
dm.qryInteressadosEndereco_Interessado.Value := ´----Sem Endereço----´;

if
Trim(dm.qryInteressadosEmail_Interessado.Value) = ´´ then
dm.qryInteressadosEmail_Interessado.Value := ´---Sem E-mail---´;

dm.qryInteressados.Post;
EnableEdit; //Um procedure que criei