Ist diese Routine die gesamte, oder nur ein Auszug!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
zahl1, zahl2, ergebnis:real;
begin
while x<>y do
begin
...
...
end;
end;
Was ist mit x, y? Eigentlich undefiniert!
Demzufolge evtl auch eine Entlosschleife.
Dein Application.ProcessMessages hast Du deswegen auch da drin, weil sonst nix mehr geht.
Mal drüber nachdenken.
Gruss alfold