>= bei real?

[Wuaegner]

hm
bei mir geht's auch so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,a: real;
begin
  if (x * x) >= a then
  //...
end;