La IP ya te lo dijo Dr Juzam y echale un vistazo a esto.
function TForm1.ComputerName:String; var Buffer:array[0..MAX_COMPUTERNAME_LENGTH] of Char; MaxSize:Cardinal; begin MaxSize:=Sizeof(Buffer); if not GetComputerName(@Buffer,MaxSize) then raise Exception.Create('No hay Nombre'); Result:=StrPas(@Buffer); end;
procedure TForm1.BitBtn34Click(Sender: TObject); var usuario:array[0..30] of char; n:Cardinal; begin n:=30; GetUserName(usuario,n); BitBtn34.Caption:=StrPas(usuario); end; Suerte