Работа с потоками

[ThreadDelphi]

Нужно, чтобы memo заполнялось числами с помощью n-го количества потоков. Числа заполняются, только вот потоки некоректно работают (скорость остается такой же, как и без использования потоков). Подскажите, пожалуйста, где косяк.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SyncObjs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

  
  TNewThread=class(TThread)
  private
   procedure UpdateMemo;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
    end;

var
  Form1: TForm1;
  x,y,Thread:integer;
  Work:boolean;
  cs:TCriticalSection;

implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=-1;
  Work:=true;
  for Thread:=1 to strtoint(Edit1.Text) do
    TNewThread.Create(false);
  Thread:=strtoint(Edit1.Text);
end;

procedure TNewThread.Execute;
begin
  while Work do
    begin
      cs.enter;
      inc(x);
      if x<1000 then y:=x else work:=false;
      cs.leave;
      if work then
      Synchronize(UpdateMemo);
    end;
  dec(thread);
end;

procedure TNewThread.UpdateMemo;
begin
 Form1.Memo1.Lines.Add(inttostr(y));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cs:=TCriticalSection.create;
end;

end.

[Stilet]

А какой прирост скорости ты ожидаешь?
Ты же заставляешь перерисовываться визуальный компонент в нескольких потоках, откуда здесь скорость?

А вот если попробуешь сделать что-то вроде такого:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormTerm(Sender: TObject);
  private
    { Private declarations }
    
  public      tl:TThreadList;
    { Public declarations }
  end;

TNewThread=class(TThread)
  private
   procedure UpdateMemo;
   procedure redelme;
  protected
    procedure Execute; override;
  public
    MyName:String;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TNewThread }


procedure TNewThread.Execute;  var i:integer;
begin
  inherited;
  for i:=0 to 1000 do Synchronize(UpdateMemo);
  Synchronize(redelme);
end;

procedure TNewThread.redelme;
begin
  form1.tl.Remove(self);
end;

procedure TNewThread.UpdateMemo;
begin
 with  Form1.Memo1.Lines do begin
   Add(DateTimeToStr(now)+' '+self.Myname);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;  t:TNewThread;
begin
 Memo1.Lines.BeginUpdate;
 tl:=TThreadList.Create;
 for i:=1 to 10 do begin
   t:=TNewThread.Create(true);tl.Add(t);
   with t do begin
     FreeOnTerminate:=true;
     MyName:='Thread_'+IntToStr(i);
     OnTerminate:=FormTerm;
     Resume;
   end;
 end;
end;

procedure TForm1.FormTerm(Sender: TObject);
var l:TList;
begin
 l:=tl.LockList;
 if l.Count=0 then Memo1.Lines.EndUpdate;
 tl.UnlockList;
end;

end.

То заметишь прирост скорости.

[ThreadDelphi]

Спасибо большое

[Stilet]

Наздоровье )