Nach then und else erwartet der Compiler nur jeweils
eine einzige Anweisung. Wenn du mehrere Anweisungen haben willst, musst du die mit begin und end einschließen:
Delphi-Quellcode:
if <Bedingung> then begin
Anweisung1
Anweisung2
...
end else begin
Anweisung1
Anweisung2
...
end;