{%MainUnit unit1.pas}
procedure Do1;
begin
  if true then begin
  aa;

xx
  end;
end;