[AllMaNi]

На счет создания нити это делается так:

Код:

function MyProc:bool;
begin
 ShowMessage('hi');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateThread(nil,0,@Myproc, nil, 0, Id1);
end;

Осознал ошибку?