Type
    TmData = Record 先定义一个Record有2个返回值
    Data1: string;
    Data2: string;
end;
 
function Tform1.Myfunction(parm: string): TMdata;
var MData1: TMdata;
begin
    MData1.Data1:= '数据1';
    MData1.Data2:= '数据2:';
    result:= MData1;      //传回记录record
end;

procedure Tform1.MyProc(var parm: TMdata);
begin
    parm.Data1:= '数据1';
    parm.Data2:= '数据2';
end;

function abc(var aa,bb:double):string;//返回2个double值,1个string值
begin
  aa:=5678;
  bb:=1234;
  result:='你好！滔Roy';
end;

procedure abc(var aa,bb:double)//返回2个double值
begin
  aa:=5678;
  bb:=1234;
end;