unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TFoo = record
    FValueA: Integer;
    FValueB: Integer;
  end;      TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function FooReturn1(A,B:Integer): TFoo;
    function FooReturn2(var A,B: Integer): Boolean;
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    function TForm1.FooReturn1(A,B:Integer): TFoo;
begin
  Result.FValueA := A;
  Result.FValueB := B;
end;    function TForm1.FooReturn2(var A,B:Integer): Boolean;
begin
  A := A 1;
  B := B 1;
  Result := True;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  xFoo: TFoo;
  xA,xB: Integer;
begin
  xFoo := FooReturn1(12,20);
  ShowMessage(Format('A=%d,B=%d',[xFoo.FValueA,xFoo.FValueB]));
  xA := 10;
  xB := 15;
  if FooReturn2(xA,xB) then
    ShowMessage(Format('xA=%d,xB=%d',[xA,xB]));
end;    end.