ОтДельный поток

[StartMis]

Вот так я его создаю

type
  TMsgRecord = record
  thread : Integer;
  msg    : string[30];
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function OTDELN_POTOK(a : string) : Integer;
begin


EndThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
id1 : LongWord;
thread1 : Integer;
msg1 : TMsgRecord;
Rect : TRect;
begin
msg1.thread := 1;





thread1:=BeginThread(nil,0,@OTDELN_POTOK,@msg1,0,id1);
CloseHandle(thread1);
end;

Вопрос как передать функции OTDELN_POTOK(a : string) : Integer; переменную a : string

[TwiX]

Не знаю, но кажется, что без SendMessage не обойтись.
А почему бы не создать свой класс на основне TThread? Было бы намного удобнее

[StartMis]

Что то я не пойму как создать свой класс на основне TThread. Можно пример

[BOBAH13]

Извините, но лень писать. Нашел в гугле просто вбив BeginThread. Все четко с примером написано тут соответственно в TMsgRecord записывайте что вам угодно и сколько угодно.

Edit:
Хотя вот и заметил, ваш код близок, только вы не верно описали функцию потока. Вместо a: string напишите param: Pointer; а дальше как в примере сверху, переведите в указатель на вашу структуру TMsgRecord

[TwiX]

type
   TMyThread = class (TThread)
   private
      procedure Execute; override;
   end;

Создаёшь как

var
   a: TMyThread;
begin
   a:=TMyThread.Create(False);
end;

По запуску начинается выполняться процедура Execute

[crystalbit]

ТС, копай ThreadVar

[maxionans]

Вопрос как передать функции OTDELN_POTOK(a : string) : Integer; переменную a : string
...
Что то я не пойму как создать свой класс на основне TThread. Можно пример

Если использовать TThread, то можно вот так:

type
  TMyThread = class(TThread)
  private
    FString : String;
  protected
    procedure Execute; override;
  public
    constructor Create(ACreateSuspended : Boolean; const AString : String); reintroduce;
  end;
...
constructor TMyThread.Create(ACreateSuspended : Boolean; const AString : String);
begin
  inherited Create( ACreateSuspended );
  FString := AString;
end;

procedure TMyThread.Execute;
begin
  { Здесь что-то делаем с FString }
end;

Если не использовать TThread, то передавать лучше PChar и потоковую функцию изменить на приём PChar.

[InternetStranger]

ммм. Переопределять конструктор совсем не обязательно, как и ThreadVar использовать (это смотря что именно ты хочешь).
Проще объявить в глобальном пространстве имен A:String.
Коль речь зашла о TThread, то данная тема -повтор

[maxionans]

Глобальные переменные для таких мелочей, как в данном случае, это плохо-плохо-плохо-плохо

[InternetStranger]

Конечно плохо... Но людей-то как раз на плохое и тянет