[Error] Unit1.pas(50): Type of expression must be BOOLEAN

[2Kuhl4You]

Hilfe was mache ich hier Falsch?????

procedure TForm1.AbgleichenClick(Sender: TObject);
begin
ergebnis := StrToFloat (Form1.caption);
If VermutungsZahl := FloatToBool (ergebnis);
Then ShowMessage(Gewonnen);
end;

end.



Fehlermeldungen:
[Error] Unit1.pas(50): Type of expression must be BOOLEAN
[Error] Unit1.pas(56): Statement expected but end of file found


wieso?kann mir wer helfen? möglichsT schnell mache Praktikum und brauche eine Antwort