Hola espero que te sirva el aporte
Código Delphi
[-]QTemp.SQL.Text := 'Select Nombre, Direccion, Telefono, from Clientes '+
'where Codigo LIKE '+QuotedStr(Edit1.value)+' )';
QTemp.Active := true;
If QTemp.RecordCount < 1 then
begin
MessageDlg('¡Código de cliente no existe!',mtError,[mbOK],0);
Edit1.SetFocus;
proba usando LIKE en ves de =. Suerte