type
TMyRecord = record
A: Integer;
B: string;
end;


function GetRecord: TMyRecord;
begin
Result.B := 'pcplayer';
end;

procedure Test;
var
R: TMyRecord;
begin
R := GetRecord;
end;

大概这意思