[dec]

Hola,

Para que sea visible desde otras unidades, has de declarar la función en la "interface" de su unidad, es decir:

Código Delphi [-]
unit Unit2;

{$mode objfpc}{$H+}

interface

function ReverseString( s : string ) : string;

uses
  Classes, SysUtils;

implementation

function ReverseString( s : string ) : string;
var
  i  : integer;
  s2 : string;
begin
  s2 := '';
  for i := 1 to Length( s ) do
    s2 := s[ i ] + s2;
  Result := s2;
end;

end.