procedure p1;
type
  datetime=record
    junk : string;
end;
var
  dt : datetime;
begin
  fillchar(dt,sizeof(dt),0);
end;

begin
  P1;
end.