Ratezahl 2 Delphi (leicht)

[andiak]

ok hab ich dieser button mit wo "Rate" draufsteht besitzt jetzt folgendes:

procedure TForm1.Vergleiche(Sender: TObject);
begin
count := count + 1;
Label4.Caption := IntToStr( count);
if count = 10 then
Label4.Caption := 'Maximale Rateanzahl erreicht, Neue runde?';
BRaten.Enabled := false
end;

if StrToInt(EEingabe.Text) > Zahl then
begin
PAntwort.Caption := 'zu groß!';
PAntwort.Color := clred
end;
begin
if StrToInt (EEingabe.Text) < Zahl then
begin
PAntwort.Caption := 'zu klein';
PAntwort.Color := clred
end;
begin
if StrToInt (EEingabe.Text) = Zahl then
PAntwort.Caption := 'Richtig!';
PAntwort.Color := clgreen
end
// Dies ist ein Kommentar.
// Einrückungen verdeutlichen Abhängigkeiten zwischen Anweisungen
// und machen den Programm-Code besser lesbar.
end;



allerdings kommt jetzt ein fehler bei:
if StrToInt(EEingabe.Text) > Zahl then


Deklaration erwartet aber if gefunden

was habe ich falsch gemacht