ایجاد صف برای انجام دستورات

[seyed_farid]

با سلام

من یک mwIdTCPThreadClient1 دارم که به سرور وصل می شود و با توجه به دستوراتی که سرور ارسال میکند باید فرمان را اجرا کند.
فرمانها را در Function TMain.ProccessMessage(s : String): Boolean; مورد بررسی قرار میدهم.
آیا با دستورات زیر صف بدرستی اجرا میشود یا باید تغییراتی بدهم؟

procedure TMain.ProcessMessageQueueIn;

var s : string;

begin

 while MessageQueueIn.Count > 0 do

    try

       s := MessageQueueIn[0];

       MessageQueueIn.Delete(0);

       ProccessMessage(s);



       Waitms(10);

       Application.ProcessMessages;

       NotifyChangedIn;

    except

     MessageQueueIn.Clear;

    end;

 OnJobIn := False;

end;



procedure TMain.NotifyChangedIn;

begin

   if not OnJobIn then

   begin

    OnJobIn := True;

    ProcessMessageQueueIn;

   end;

end;



procedure TMain.AddToStackIn(Token:string);

begin

 MessageQueueIn.Add(Token);

 NotifyChangedIn;

end;

1- اگر حین اجرای دستور قبلی ، دستور جدیدی بیاید باید منتظر بماند تا دستور قبلی به مرحله نهایی برسد و بعد دستور جدید اجرا شود.
آیا این کدها میتواند تامین کننده منظور من باشد یا نه؟

2- آیا اگر این دستورات را بخواهم بصورت Thread اجرا کنم که CPU برنامه را بالا نبرم چکونه امکانپذیر هست؟

[seyed_farid]

با سلام مجدد

این هم یک روش دیگه هست.
در مورد این چه نظری دارید؟

procedure TMain.ThreadWorkerQueueInExecute;

var s : string;

begin

 while not Application.Terminated do

  begin

    while MessageQueueIn.Count > 0 do

     try

       s := MessageQueueIn[0];

       MessageQueueIn.Delete(0);

       ProccessMessage(s);



       sleep(10);

     //  Application.ProcessMessages;

     except

       MessageQueueIn.Clear;

     end;



   Sleep(100);

  end;

end;



procedure TMain.AddToStackIn(Token:string);

begin

 MessageQueueIn.Add(Token);

end;