استفاده از حلقه به جای تایمر

[Mask]

با عرض سلام خدمت دوستان.
من از کد زیر به جای تایمر در برنامم استفاده میکنم.
اما چنتا مشکل پیش میاد
1- وقتی که فرم رو درگ میکنیم حلقه از کار میوفته و تا زمانی که فرم رو از موس ول نکنیم ، حلقه ادامه نمیده.
2- دکمه close فرم از کار میوفته.
آیا راهی به غیر از Thread دوستان سراغ دارند که دوتا مشکل رفع بشه.
ممنون.
procedure TForm1.Button1Click(Sender: TObject);
var b:Byte;
begin
For b:=1 to 100 do
begin
Sleep(1000);
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Application.ProcessMessages;
end;
end;

[Felony]

تنها راه همون Thread هست .

[MohsenB]

با عرض سلام خدمت دوستان.
من از کد زیر به جای تایمر در برنامم استفاده میکنم.
اما چنتا مشکل پیش میاد
1- وقتی که فرم رو درگ میکنیم حلقه از کار میوفته و تا زمانی که فرم رو از موس ول نکنیم ، حلقه ادامه نمیده.
2- دکمه close فرم از کار میوفته.
آیا راهی به غیر از Thread دوستان سراغ دارند که دوتا مشکل رفع بشه.
ممنون.
procedure TForm1.Button1Click(Sender: TObject);
var b:Byte;
begin
For b:=1 to 100 do
begin
Sleep(1000);
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Application.ProcessMessages;
end;
end;

سلام

حالا مشکل شما با تایمر چیه ؟