constructor TGetInetFileThread.Create(const URL: string; Delay: Cardinal = 0);
begin
  inherited Create;
  FURL := URL;
  FDelay := Delay;
  FDownloaded := False;
  HTTP := THTTPSend.Create;
end;

destructor TGetInetFileThread.Destroy;
begin
  HTTP.Free;
end;

procedure TGetInetFileThread.Execute;
begin
  if FDelay > 0 then Pause(FDelay);
  HTTP.HTTPMethod('GET', FURL);
  FDownloaded := True;
end;

// создаю свой клас потока на основе TGsvThread
type
  TDBThread = class(TGsvThread)
       private
            ...
      public
          spTxtFile : String;
           ...
  protected
    procedure Execute; override;
  end;
...
//объявляю переменную и создаю менеджер потоков
pManager : TGsvThreadManager;
pManager := TGsvThreadManager.Create(64);
...
//создаю орстановленный поток
Handle := pManager.Add(TDBThread.Create, false);

// теперь мне нужно в созданном потоке установить значения переменных
// например spTxtFile : String;

//  ВОТ ТУТ ПРОБЛЕМА!

//запустить поток
Thread.Resume;

// создание потока
  Handle := ThreadManager.Add(TSomeThread.Create);
  ....
  // работа с потоком
  Thread := ThreadManager.Lock(Handle);
  if Assigned(Thread) then
  begin
    ....
  end;
  ....
  // уничтожение потока
  ThreadManager.Release(Handle);

myPotok := myThread.Create;

myMan.Add(myPotok);

unit MyPotok;

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

type
  TDBThread = class(TGsvThread)
  private
    { Private declarations }

  public
  iNum : Integer;
  procedure WriteLog(sLogStr :String);

  protected
    procedure Execute; override;
  end;

implementation

uses FMain;

procedure TDBThread.WriteLog(sLogStr :String);
Begin
sLogStr := IntToStr(iNum) + '->' + sLogStr;
//PostMessage(FormMain.Handle, WM_THREAD_COUNTER, 0 , Integer(PChar(sLogStr)));
  SendMessage(FormMain.Handle, WM_THREAD_LOG, 0 , Integer(PChar(sLogStr)));
End;

procedure TDBThread.Execute;
var
  i: Integer;
begin
  WriteLog('= Начало работы потока');
  for i:=1 to 1000 do
   begin
      WriteLog('Test ' + IntToStr(i));
   end;
  WriteLog('= Окончание работы потока');
end;

end.

unit FMain;

interface

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

const
  WM_THREAD_LOG = WM_USER + 1000;

type
  TFormMain = class(TForm)
    Memo1: TMemo;
    Start: TButton;
    procedure StartClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }

    procedure OnThreadLog(var aMessage: TMessage);
    message WM_THREAD_LOG;

  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}
procedure TFormMain.OnThreadLog(var aMessage: TMessage);
Begin
Memo1.Lines.Add(pChar(aMessage.LParam));

End;


procedure TFormMain.StartClick(Sender: TObject);
var
pMan : TGsvThreadManager;
pPotok, pPotok1, pPotok2, pPotok3 : TDBThread;
begin
pMan := TGsvThreadManager.Create(1);
pPotok := TDBThread.Create;
pPotok.iNum :=1;
pMan.Add(pPotok);

pPotok1 := TDBThread.Create;
pPotok1.iNum :=2;
pMan.Add(pPotok1,true);

pPotok2 := TDBThread.Create;
pPotok2.iNum :=3;
pMan.Add(pPotok2,true);

pPotok3 := TDBThread.Create;
pPotok3.iNum :=4;
pMan.Add(pPotok3,true);

end;

end.

//PostMessage(FormMain.Handle, WM_THREAD_COUNTER, 0 , Integer(PChar(sLogStr)));

procedure TDerivedThread.Execute;
begin
  // действия до начала цикла
  ....
  // циклическое выполнение
  while not Terminated do begin
    ....
  end;
end;

function ThreadProc(p: TGsvThread): Integer;
var
i:integer; {добалено мной}
begin
  // Процедура, которую вызывает операционная система при старте параллельного
  // потока
  Result := 0;
  with p do begin
    // жизненный цикл потока
     for i:=1 to 100 do Form1.Memo1.Lines.Add(IntTostr(i) + ' - test'); {длбалено мной}
    ThreadExecute;    { - ВОТ ЭТОТ ВЫЗОВ МНЕ НЕ ПОНЯТЕН}
    // самозавершение потока
    if Assigned(FManager) then
      FManager.Release(FGsvHandle);
  end;
  EndThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
pMan : TGsvThreadManager;
pPotok, pPotok1, pPotok2, pPotok3 : TGsvThread;
begin
pMan := TGsvThreadManager.Create(1);

pPotok := TGsvThread.Create;
pPotok.iNum :=1;
pMan.Add(pPotok,true);

pPotok1 := TGsvThread.Create;
pPotok1.iNum :=2;
pMan.Add(pPotok1,true);

pPotok2 := TGsvThread.Create;
pPotok2.iNum :=3;
pMan.Add(pPotok2,true);

pPotok3 := TGsvThread.Create;
pPotok3.iNum :=4;
pMan.Add(pPotok3,true);

end;

function TGsvSelect.Wait(aTimeout: Cardinal): Boolean;
var
  res, i: Cardinal;
begin
  res    := WaitForMultipleObjects(FCount, @FEvents[0], False, aTimeout);
    Result := res > WAIT_OBJECT_0 AND
              res < (WAIT_OBJECT_0 + FCount);
    if Result then begin
      i := res - WAIT_OBJECT_0;
      if Assigned(FMethods[i]) then
        FMethods[i]();
    end;
end;

function TGsvSelect.Wait(aTimeout: Cardinal): Boolean;
var
  res, i: Cardinal;
begin
  Result := False;
  res    := WaitForMultipleObjects(
          FCount, @FEvents[0], False, aTimeout);
  if res < (WAIT_OBJECT_0 + FCount) then begin
    Result := res > WAIT_OBJECT_0;
    if Result then begin
      i := res - WAIT_OBJECT_0;
      if Assigned(FMethods[i]) then
        FMethods[i]();
    end;
  end;
end;

function TGsvSelect.Wait(aTimeout: Cardinal): Boolean;
var
  res, i: Cardinal;
begin
  res    := WaitForMultipleObjects(
        FCount, @FEvents[0], False, aTimeout);
  if  then begin
    Result := res > WAIT_OBJECT_0 AND
              res < (WAIT_OBJECT_0 + FCount);
    if Result then begin
      i := res - WAIT_OBJECT_0;
      if Assigned(FMethods[i]) then
        FMethods[i]();
    end;
  end;
end;