Capturar Daots

[jhonny]

Y esta ultima para saber el nombre del equipo...

function GetComputerName : String;
var 
   pcComputer : PChar;
   dwCSize    : DWORD;
begin 
   dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
   GetMem( pcComputer, dwCSize );
   try
      if Windows.GetComputerName( pcComputer, dwCSize ) then 
         Result := pcComputer;
   finally
      FreeMem( pcComputer ); 
   end; 
end;

Ejemplo de llamada:

Label2.Caption:=GetComputerName;

Espero te sirva pa algo