Function X (a: integer ): RECORDtyp ;

[jungdelphin]

Delphi-Quellcode:

type
 test = record
        test1,test2 : string;
end;

//  ...

function testen(string1, string2: string): test;
var
test1 : test;
begin
        test1.test1 := string1;
        test1.test2 := string2;
        result := test1;

end;

// z.B.

procedure TForm1.Button1Click(Sender: TObject);
begin
        Label1.Caption := testen('Hallo, ', 'Welt!').test1;
        Label2.Caption := testen('Hallo, ', 'Welt!').test2;
end;