ProgressBar ohne sleep aber mit delay

[Faceman]

Hi.

Ich hab ein Problem und komme nicht weiter, bin auch noch Anfänger. Und zwar habe ich eine ProgressBar auf meiner Form, die nach 10 sekunden voll sein soll.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
  var i : Integer; 
begin 
  ProgressBar1.Min:=0; 
  ProgressBar1.Max:=100; 
  for i:=0 to 100 do 
    begin 
      ProgressBar1.Position:=i; 
      Sleep(100);  
    end; 
end;

Das Problem ist nur hierbei, dass das Programm diese 10 sekunden lang lahm gelegt ist und man nichts machen kann. Ich habe irgendwo gelesen, dass man das mit delay machen kann, aber ich kenn mich da nicht mit aus. Schließlich will ich ja in den 10 sekunden noch das Programm bedienen bzw. etwas anklicken. Könnt ihr den Quelltext verbessern?