if dbedit1.Text=EmptySTR then
begin
showmessage('campos vacios');
end else
begin
if dbedit2.Text=EmptySTR then
begin
showmessage('campos vacios');
end else
begin
if dbedit3.Text=EmptySTR then
begin
showmessage('campos vacios');
end else
begin
if dbedit4.Text= EmptySTR then
begin
showmessage('campos vacios');
end else
begin
if dbedit4.Text= EmptySTR then
begin
showmessage('campos vacios');
end else
begin
if dbedit5.Text= EmptySTR then
begin
showmessage('campos vacios');
end else
begin
fModulo.tClientes.Post;
self.Close;
end;
end;
end;
end;
end;
end;