Hilfe schleifen Ende

[justloosit]

ich hab ma ne frage ich möchte eine schleife beenden aber er schreibt :Oparator ist auf diesen Operandentyp nicht anwend bar würde mich freuhen wenn ihr mir helfen könntet eine lösung zu finden :

Delphi-Quellcode:

procedure TForm1.BerechnenButtonClick(Sender: TObject);
var SeiteA, SeiteB, SeiteC, s, Flaeche, Umfang :Real;

begin
SeiteA:=StrToFloat(SeiteAEdit.Text);
SeiteB:=StrToFloat(SeiteBEdit.Text);
SeiteC:=StrToFloat(SeiteCEdit.Text);
Umfang:=SeiteA + SeiteB + SeiteC;
s:=Umfang/2;
if SeiteA+SeiteB<SeiteC then
  write1.caption:=('Berechnung nicht Möglich')
  else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  end
  and if SeiteA+SeiteC<SeiteB then
    write1.caption:=('Berechnung nicht Möglich')
  else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  end
and if SeiteB+SeiteC<SeiteA then
  write1.caption:=('Berechnung nicht Möglich')
  else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  end
end;
end.

ps. der fehler muss i-wo am ende sein vielen dank für die antworten im vorraus

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]