type pb: TProgressBar; procedure Mon_Thread.Execute; begin //Update if (action2 = 'update') then begin Form1.ListView1.Items.Item[0].SubItems.Strings[0]:= 'Update en Cours'; pb := TProgressBar.Create(self); pb.Parent:=Form1.ListView1; pb.Position :=50; end;
pb := TProgressBar.Create(Form1);