楽しい。

type
　TRecHoge = record
　　X: Integer;
　　Answer: string;
　end;

function Hoge(value: Integer): TRecHoge;
var
　returnValue: TRecHoge;
begin
　if value = 1 then begin
　　returnValue.Answer := '戻り値をセットしました。';
　　Result := returnValue;
　end;
end;

procedure HogeCall;
var
　buf: TRecHoge;
begin
　buf := Hoge(0);
　ShowMessage(buf.Answer);
　buf := Hoge(1);
　ShowMessage(buf.Answer);
　buf := Hoge(0);
　ShowMessage(buf.Answer);
end;