{%MainUnit unit1.pas}
procedure Do1;
begin
  if True then
  begin
    Test() //caret position
  else
  begin

  end;
end;