Record1 = Record
time: TTime;
str : string;
end;    Record2 = Record
time: TTime;
int: integer;
end;    function xxxx( aRecord: ????? ): Boolean;
begin
aRecord.Time := Time();
end;    

function xxxx(var aRecord): Boolean;
var
  t : TDateTime ;
begin
  t:=time() ;
  move(t,aRecord,sizeof(t)) ;
end ;
 

Record1 = Record
  time: TTime;
  str : string;
end;    Record2 = Record
  time: TTime;
  int: integer;
end;    function F1( aRecord: Record1): Boolean; overload;
begin
  aRecord.Time := Time();
end;      function F1( aRecord: Record2): Boolean; overload;
begin
  aRecord.Time := Time();
end;