Problema con Terminal Server Windows 2003

[mierda]

sacas el usuario que ha entrado al terminal server
-------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
Count: Dword;
username: Pchar;
nombre_usuario: string;
begin
GetUserName(nil,count);
{reservar memoria necesaria}
Username := StrAlloc(Count);
{recuperar nombre del usuario}
if GetUserName(UserName,count) then
begin
nombre_usuario:=strpas(username);
edit1.text := nombre_usuario;
end;
end;
----------------------------------------------------
luego te haces una tabla con un usuario y un numerico,
miras a ver si el usuario estaba en la tabla y sino le haces un max de id y le sumas uno, y asi cada usuario tiene un numero fijo.

era esto lo que necesitabas!?!?

un saludo.