[Mrak]

Код:

  st:=adoconnection1.ConnectionString;
  n:=Pos('User', st)+8; 
  login:='';
  for i:=n to Length(st) do
  begin
    if st[i]=';' then break;
    login:=login+st[i];
  end;
  form1.Caption:='Логин: '+login;

сделал так... топорно, ну а че делать?