EInvalidOp bei Gleitkomma-Operation

[Calle]

Ich benutze ja nur äußerst selten um probleme beim Programmieren zu lösen aber das verwirrt mich doch ZU sehr...

bei folgendem Code tritt ein EInvalidOp auf... wobei mich wundert was er an normaler Division nicht kennt... ich hab nun schon alle werte wo es möglich war durch round() in Integer Werte umgeformt aber es will nicht funktionieren...
vorher hatte ich die quersum-Prozedur noch mit parameterübergabe...aber als es nicht funktionierte hab ich das dann auch geändert aber es half alles nichts...

zum verständinss was das prog überhaupt macht: es soll diejenigen Zahlen ausgeben wo die summe der Quersummen zweier Zahlen gleich der Quersumme der Summe zweier zaheln ist... fragt nicht warum ich das tue...fand ich einfach nur interessant ^^

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    QA_Ausgabe: TLabel;
    AQ_Ausgabe: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Gauge1: TGauge;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  zahl,quer1:real;
  x,y,z,AQ_summe,QA_Summe:integer;

implementation

{$R *.dfm}

Procedure quersum;
Var j,laenge:integer;
    ziff1,ziffer1: array [0..100] of real;
    strzahl:string;
Begin
  strzahl:=FloatToStr(zahl);
  laenge:=length(strzahl);
  for j:=1 to laenge do
    begin                           //aufspalten der Zahl in einzelne Ziffern 
      zahl:=zahl/10;
      ziffer1[j]:=frac(zahl);
      zahl:=trunc(zahl);
      ziff1[j]:=ziffer1[j]*10;
    end;
  quer1:=0;
  while j<>0 do
  begin
    quer1:=ziff1[j]+quer1;
    j:=j-1;
  end;
End;

Procedure QuersummenAddition;
Var x_quer,y_quer:real;
Begin
  zahl:=x;
  quersum;
  x_quer:=quer1;
  zahl:=y;
  quersum;
  y_quer:=quer1;
  QA_Summe:=round(x_quer)+round(y_quer);
end;

Procedure AdditionDerQuersumme;
Begin
  zahl:=x+y;
  quersum;
  AQ_Summe:=round(quer1);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  z:=round(StrToInt(edit1.Text));
  y:=10;
  x:=10;
  repeat
    begin
    y:=y+1;
    x:=10;
    Gauge1.Progress:=round((y div z)*100);
    repeat
      begin
      x:=x+1;
      QuersummenAddition;
      AdditionDerQuersumme;
      if round(QA_Summe)=round(AQ_Summe) then        
        begin
          QA_Ausgabe.Caption:= FloatToStr(QA_Summe);
          AQ_Ausgabe.Caption:= FloatToStr(AQ_Summe);
        end;
      end;
    until x=z;
    end;
   until y=z;

end;

end.

nebenbei ewähnt bin ich in delphi noch anfänger als seit nicht zu hart