{%MainUnit unit1.pas}
type
  TMyClass = class


procedure Do1;
begin
end;