مشكلة التايمر مع ارسال الاوأمر,,, كيف تجنب ضغط الجهاز ؟

[hanipino]

PHP كود :

var
  Form1: TForm1;
  B: Boolean; 


PHP كود :

procedure TForm1.FormActivate(Sender: TObject);
begin
  repeat
     if (Self <> nil)and(Self.Visible = Boolean(1)) then
         stat1.Panels[1].Text := DateTimeToStr(Now);
         Application.ProcessMessages;
  until(B);
end; 


PHP كود :

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  B := Boolean(1);
end;