{%MainUnit unit1.pas}
type
  TMyRecord1 = record
  end;

  PMyRecord1 = ^TMyRecord1;

procedure Do1;
begin
end;