[Помогите!] Потоки с переменной

[zaparca]

Создаю поток

type
  TUnfThread = class(TThread)
  private
    UTheWindow:PChar;
    UBut6Cap:string;
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create(TheWindow:PChar;But6Cap:string);

  end;

implementation

{ TUnfThread }
constructor TUnfThread.Create(TheWindow:PChar;But6Cap:string);
begin
  UTheWindow := TheWindow;
  UBut6Cap:= But6Cap;
  inherited Create(False);
end;


procedure TUnfThread.Execute;
var
buf:byte;
PID,hProcess,BytesCount:DWORD;
const
 UnfrFlag = $009C1984;
begin
 GetWindowThreadProcessId(UTheWindow, @PID);
 hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if hProcess <> 0 then
   begin
    ReadProcessMemory(hProcess, ptr(UnfrFlag), @buf, sizeof(buf), BytesCount);
     repeat
      buf:=$1;
      writeprocessmemory(hProcess,ptr(UnfrFlag),@buf,1,BytesCount)
     until UBut6Cap = 'Antifrizzzz'
   end;
end;
end.

программа

procedure TForm1.Button6Click(Sender: TObject);

begin //Atifrezzz
   if Button6.Caption = 'Frizzzz' then
     begin
      Button6.Caption := 'Antifrizzzz';
      But6Cap:= Button6.Caption;
      Exit;
     end;
     Button6.Caption:= 'Frizzzz';
     But6Cap:= Button6.Caption;
     TUnfThread.Create(TheWindow;But6Cap); // передаю переменную в поток 
end;
end.

дальше такая бяка

Цитата: [Error] ufththread.pas(40): There is no overloaded version of 'GetWindowThreadProcessId' that can be called with these arguments [Fatal Error] Unit1.pas(7): Could not compile used unit 'ufththread.pas'

что не так подскажите

[Dinmaite]

DWORD WINAPI GetWindowThreadProcessId(
__in HWND hWnd,
__out_opt LPDWORD lpdwProcessId
);

Неверный аргумент в функции.
Должен быть hWnd (Dword) хендл окна.
У Вас отчегото строка.

[zaparca]

procedure TForm1.Button6Click(Sender: TObject);

begin //Atifrezzz
   if Button6.Caption = 'Frizzzz' then
     begin
      Button6.Caption := 'Antifrizzzz';
      But6Cap:=(Button6.Caption);
      Exit;
     end;
     Button6.Caption:= 'Frizzzz';
     But6Cap:= Button6.Caption;
     TUnfThread.Create(TheUWin;|But6Cap);
end;

курсор встал тут пишет
[Error] Unit1.pas(142): Not enough actual parameters
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

может я че не так делаю.
как передать название кнопки в поток чтоб если она Antifrizzzz он завершился?
а если Frizzzz продолжал работать...

[Dinmaite]

Цитата: Сообщение от zaparca TUnfThread.Create(TheUWin;|But6Cap);

Насколько я в курсе, потоки в делфи создаются с параметром "RunSuspended", вы изменили конструктор, но вызвали из него стандартный метод, значит должны предоставить булевую переменную "RunSuspended".