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

[Stilet]

StartMis

Если уж очень хочется работать через Win API то рекомендую поштудировать пример:

unit Unit1;

interface

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

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

var  s:string;   ti:Cardinal;th:THandle;
  Form1: TForm1;

implementation

{$R *.dfm}

  function OTDELN_POTOK(a:string) : Integer;
  begin
   form1.Caption:=s;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 s:='Hello world';
 th:=CreateThread(nil,0,@OTDELN_POTOK,@s[1],CREATE_NEW,ti);
end;

end.