Potenzrechnung

[poterp]

Hallo,
ich habe da ein Problem und zwar ich versuche ein Potenzergebnis durch ein Gauge zu ermitteln
aber irgendwie klappt es nicht. So folgt sieht mein code aus:

Delphi-Quellcode:

procedure Form1.OKBtnClick(Sender: TObject);
begin
Timer1.enabled := true;
Timer1.Interval := 10;

end;

procedure Form1.Timer1Timer(Sender: TObject);
var
i, x, y, ergebnis,ergebnis2: integer;
begin
  x:=StrToInt(Edit1.Text);
  y:=StrToInt(Edit2.Text);
  Ergebnis:=  x / y;
  Ergebnis2:= ergebnis*100;
  Gauge1.progress := gauge1.progress + 1;
  if gauge1.Progress =  ergebnis2 then Timer1.enabled :=false;
  Label1.Caption:= inttostr(ergebnis);

end;

Ich vermute,dass irgendwas in meiner Formel stimmt nicht. kann mir jemanden helfen?
grüß
poter