مشكلة في الدخول ال form

[لؤي]

السلام عليكم

مثال ممكن أن تعدل عليه للوصول لما تصبو إليه :

كود :

procedure TMainForm.ProgressFormClose(Sender: TObject); begin   ProgressForm.Free; end; procedure TMainForm.LaunchButtonClick(Sender: TObject); begin   ProgressForm:=TProgressForm.Create(nil);   ProgressForm.OnClose:=ProgressFormClose;  ProgressForm.ShowModal; end;