Problem mit else

[Back2Code]

Also ich habe diesmal folgendes Problem : Ich möchte gerne eine Schleife mit if & else benutzen nur irgendwie bekomm ich den Fehler nicht gefixxt den Delphi ausspuckt :

Code:

[DCC Fehler] Unit3.pas(60): E2029 'END' erwartet, aber 'ELSE' gefunden

Code Snippet von der Stelle :

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
var i: integer;
begin
for i := 1 to 100 do
begin
if i > 50 then
ShowMessage(IntToStr(i));
end
else begin
ShowMessage('Alles andere');
end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Button2.Enabled := False; // "" Siehe *
end;

end.

Freue mich über jede Hilfe.

EDIT: Danke für die schnelle Hilfe.