Witam.
Czy jest ktoś kto wie jak umożliwić odczytanie i wykorzystanie procedury z unit1 we wątku? Ja niestety mam z tym problem.
procedure TDzialanie1.Execute;
var
KeybState: array [0..1] of TKeyboardState;
Key1, Key2: Word;
lParam: Longint;
FAppThreadID : Cardinal;
Value : DWORD;
label ch1, ch2, ch3, ch4, ch5, ch6, ch7, ch8;
begin
FreeOnTerminate := true;
while not self.terminated do
begin
begin
Form1.Hook;
...
...
...
Z czego "hook" jest już podkreślone na czerwono - jakby nie można było wywołać tej procedury.
Proszę o pomoc.