1. Example of problems

The problem is that empty lines is lost on program style (=ohjelma).

1.1 Lost empty lines


procedure TAutolaskuri.ButtonHAClick(Sender: TObject);
begin
  if sender is TButton then
  LabelHA.Caption := IntToStr(StrToInt(LabelHA.Caption)+1);
end;

procedure TAutolaskuri.ButtonKAClick(Sender: TObject);
begin
  LabelKA.Caption := IntToStr(StrToInt(LabelKA.Caption)+1);
end;

1.2 Extra   in HTML-tags

Below we have an image-tag that has   inside:
Kuva 1.2 Autolaskuri