Ayuda con consulta

[ecfisa]

Hola Salnhack.

La verdad no entiendo bién el problema pero proba de este modo:

Código Delphi [-]
...
  if suiEdit5.Text<>'' then
  begin
    with DataModule5.ADOQuery1 do
    begin
      Close;
      SQL.Text := 'SELECT TSERVICIOS FROM SERVICIOS WHERE TSERVICIOS = :PSERV';
      Parameters.ParamByName('PSERV').Value := suiEdit5.Text;
      Open;
      if isEmpty then
      begin
        Close;
        SQL.Text := 'INSERT INTO SERVICIOS(TSERVICIOS) VALUES (:PSERV)';
        Parameters.ParamByName('PSERV').Value := suiEdit5.Text;
        ExecSQL;
      end
      else
       ShowMessage('Ese servicios ya EXISTE, por favor revise');
    end;
    with Datamodule5.ADOQuery2 do
    begin
      Close;
      SQL.Text := 'SELECT * FROM SERVICIOS';
      Open;
    end;
    suiEdit5.Clear;
  end
  else
    ShowMessage('Debe llenar el campo del tipo de servicios');
...

Saludos.