{%MainUnit unit1.pas}
procedure Do1;
begin
  while true do
    begin

end;