[Neftali [Germán.Estévez]]

Prueba con éste:

Código Delphi [-]
  procedure TFIdentificacion.BAceptarClick(Sender: TObject);
 var
   b:Boolean;
  begin
 DMBaseDeDatos.TUsuarios.First; 
 b := DMBaseDeDatos.TUsuarios.Locate('nombreUsuario',
                                                      EUsuario.Text, [loCaseInsensitive])
 if (b) then
   MessageDlg('Encontrado', mtInformation, [mbOK], 0);
 end
 else begin
   MessageDlg('No Encontrado', mtError, [mbOK], 0);
 end;
 
  end;