[Salnhack]

hola a todos tengo un problema con una consulta, me canso de revisarla y no he podido encontra donde radica el problema, ella se ejecuta bien pero esta condicionada y ahi es donde radica el problem,

tengo que insertar una información de un formulario, pero antes chequeo si la informacion que estoy introduciendo no está y ahi es donde radica el problema en esas condiciones les muestro el codigo

Código Delphi [-]
var servicios:string;
begin
 if suiEdit5.Text<>'' then
  begin
     With Datamodule5.ADOQuery1 do
      Begin
       Close;
       SQL.Clear;
       SQL.Add('Select tservicios from servicios where tservicios = '+ QuotedStr(suiEdit5.text));
       open;
       servicios:=FieldByName('tservicios').asString;
      end;
      if servicios=suiEdit5.Text then
       ShowMessage('Ese servicios ya EXISTE, por favor revise')
      else
       begin
        With Datamodule5.ADOQuery1 do
          Begin
           Close;
           SQL.Clear;
           Sql.Add('Insert Into servicios(tservicios)');
           SQL.Add('values ('+QuotedStr(suiEdit5.text)+')');
           ExecSQL;
          end;
        With Datamodule5.ADOQuery2 do
         Begin
          Close;
          SQL.Clear;
          Sql.Add('Select * from servicios');
          Open;
         end;
        suiEdit5.Clear;
       end;
 end
 else
  ShowMessage('Debe llenar el campo del tipo de servicios');

Espero que me ayuden