Teiler einer zahl (es läuft, aber wieso?)

[Matze]

Hi, ich hab hier mal war programmiert, das die Teiler einer Zahl berechnet, es geht auch, aber ich kappiere überhaupt nicht mehr wieso , ich müsste das nächste Mal wohl besser gescheite variablen-namen nehmen.

Äh, kann mir da mel jemand auf die Sprünge helfen?
Alles, was ich verstehe, steht als bemerkung dahinter.

Delphi-Quellcode:

procedure TForm1.TeilerMengeStringVon(z: integer);  //Zahl aus einem Edit
var t,h,i: integer;  //t=teiler
begin
  s:='';

  for h:=1 to z do  //geht jede Zahl einmal durch
  begin
  x:='';
    for t:=1 to h do  //überprüft die Teiler der Zahlen
    begin
      s:=IntToStr(h div t);
      if h mod t = 0 then  //wenn kein rest da ist ==> Teiler
      begin
        if not (t=h) then x:=x+s+', '  //nach dem letzten teiler, kein Komma mehr hinzufügen
        else x:=x+s;  //Teiler dem String hinzufügen
      end;
    end;
    x:='T'+IntToStr(h)+' = {'+x+'}';  //string, der in die ListBox geschrieben wird
    ListBox1.Items.Add(x);
  end;
end;