Fórum Consultar entre Nome e Data de Nascimento em Lazarus/Delphi #591375

/// faz a consulta na tabela
with suaQuery do 
begin
     close;
    SQL.Add('select * from cliente where nome = :nome and dataaniversario = :data')
    parambyname('nome').asstring := Quotedsrt(edit1.text);
    parambyname('data').asstring := Quotedsrt(edit2.text);
    open;
end;

verifica se retornou alguma informação 
if suaqyery.recordcount > 1 then 
begin
     showmessage('Registro Ja existe com essas mesmas informações');
    edit1.setfocus;
// caso exista registro com esses dados ele sai do procedimento
    exit;
end;  


// caso nao exista nenhum registro com as informações constinua seu codigo de inserção logo abaixo