if-anweisung

[SnOxXx]

hi!

Code:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2 : Real;
begin
  zahl1 := StrToFloat(edit1.text);
  zahl2 := StrToFloat(edit2.text);

  if zahl1 then
    label1.caption := 'kleiner'
  else
    label1.caption := 'größer oder gleich';
end;

also ein label soll ausgeben welche zahl grösser oder kleiner ist nur sagt delphi dass der ausdruck BOOLEAN sein muss....der code is aber genau da her: http://www.dsdt.info/tutorials/crashkurs/?page=4

greeeetz schalli