Fórum Campo obrigatório #605565

Não queria que salvasse sem o cpf, porem mesmo depois de ter colocado:

if Trim(EdtCpf.Text) = '''''''' then
begin
MessageDlg(''''Preencha o CPF!'''', mtInformation, mbOKCancel, 0);
EdtCpf.SetFocus;
exit;
end;

Ele salva e nao aparece a mensagem informando pra preencher o cpf!




segue todo o btnSalvar;
procedure TFrmFuncionarios.btnSalvarClick(Sender: TObject);
var
cpf : string;
begin
if Trim(EdtNome.Text) = '''''''' then
begin
MessageDlg(''''Preencha o Nome!'''', mtInformation, mbOKCancel, 0);
EdtNome.SetFocus;
exit;
end;

if Trim(EdtCpf.Text) = '''''''' then
begin
MessageDlg(''''Preencha o CPF!'''', mtInformation, mbOKCancel, 0);
EdtCpf.SetFocus;
exit;
end;

//VERIFICAR SE O CPF JÁ ESTÁ CADASTRADO
dm.query_func.Close;
dm.query_func.SQL.Clear;
dm.query_func.SQL.Add(''''SELECT * from funcionarios Where cpf = '''' + QuotedStr(Trim(edtCpf.Text)));
dm.query_func.Open;

if not dm.query_func.isEmpty then
begin
cpf := dm.query_func[''''cpf''''];
MessageDlg(''''O CPF '''' + cpf + '''' já está cadastrado!'''',mtInformation, mbOKCancel, 0);
edtCpf.Text := '''''''';
edtCpf.SetFocus;
exit;
end;


associarCampos;
dm.tb_func.Post;
MessageDlg(''''Salvo com Sucesso!'''',mtInformation, mbOKCancel, 0);
limpar;
desabilitarCampos;
btnSalvar.Enabled := false;
listar;




end;