[NestorN]

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