[Mrak]

Код:

ADOQuery1.close;
  ADOQuery1.sql.text:='SELECT SUBSTRING_INDEX(USER(),"@",1);';
  try
    ADOQuery1.Open;
  except
    begin
      progressbar1.State:=pbsError;
      messageDlg('Ошибка SQL', mtError, [mbOK], 0);
      Exit;
    end;
  end;

Логин текущего юзера без хоста
С хостом запрос =

Код:

'SELECT USER();'

Когда-то сказал спасибо за это уважаемому M.A.D.M.A.N ))