problem mit else nach end

Versuch dir mal anzugewöhnen, dass du so anfängst:

Delphi-Quellcode:

begin
...
...
end;

und danach den code zwischen den begin und end;
die tastenkombination STRG-F9 ist vllt auch ganz interessant, damit kann man frühzeitig fehler erkennen, wenn man es desöfteren benutzt