Progressbar Wert geben

[Affemitwaffe93]

Hallo Leute,

also ich habe folgendes Problem:

Ich habe in meinem Projekt 2 Formulare. Jetzt will ich das ein beliebiger Wert den Man in ein Edit eingibt, als Maximum für die Progressbar dient.

Das Ganze sieht dann so aus bei mir:

1. Form:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
zahl1:= strtoint (edit1.text);
form2.Button1.enabled:=true;
form2.Timer1.enabled:=true;
form2.Timer2.Enabled:=true;
form2.ProgressBar1.Enabled:=true;
form2.Label1.Enabled:=true;
end;

end.

und in der 2. Form:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
progressbar1.Min:=0;
progressbar1.Max:= (Zahl1) ;
progressbar1.Position:=0;
progressbar1.step:= +1;
end;

end.

ich weiß schon das der Wert in die 2. Form übergeben wird da ich das mit einem Button der dann diesen Wert anzeigt überprüft habe, allerdings tut sich an der Progressbar im Moment gar nicht. Wenn ich allerdings das (Zahl1) wieder durch eine normale Zahl ersetze, dann funktioniert alles Perfekt.