[marcoszorrilla]

Código Delphi [-]
  Unit Unit8;
  
  Interface
  uses
    Windows;
  Function RoundN(X: Extended): Extended;
  Function GetUserName:String;
  implementation
  
  // Funcion que permite obtener el Nombre de Usuario que esta usando el Computador
  Function GetUserName:String;
  Var
  PcUser : PChar;
  DwUsize : DWord;
  Begin
  DwUsize := 21;
  GetMem( PcUser, DwUsize);
    Try
    If Windows.GetUserName( PcUser, DwUsize ) then
    Result := PcUser
    Finally
    FreeMem( PcUser );
    End;
  End;
  // Funcion que permite redondear...
  Function RoundN(X: Extended): Extended;
  begin
  Result := Int(X) + Int(Frac(X) * 2);
  end;
  end.

Así tiene que estar declarada y no da ningún problema.

Un Saludo.