integer.pas
s := i.to_string();

こんな感じにIntegerにto_string()をくっつけたい場合。

test.pas
type
  T_Integer = record helper for Integer
    function to_string(i: Integer):String; overload;
    function to_string():String; overload;
  end;

function T_Integer.to_string(i: Integer): String;
begin
  Result  := IntToStr(i);
end;

function T_Integer.to_string(): String;
begin
  Result  := to_string(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i:  Integer;
  s:  String;
begin
  i := 100;
  s := i.to_string();
  ShowMessage(s);
end;