function Thread(User: PInteger): Cardinal; stdcall;
begin
repeat Sleep($7F);
InterlockedIncrement(User^);
until Application.Terminated;
end;
procedure TForm1.FormCreate(Sender: TObject);
var Dummy: Cardinal;
begin
CreateThread(nil, 0, @Thread, @roman, IDLE_PRIORITY_CLASS, Dummy);
CreateThread(nil, 0, @Thread, @egostar, IDLE_PRIORITY_CLASS, Dummy);
CreateThread(nil, 0, @Thread, @cHackAll, REALTIME_PRIORITY_CLASS, Dummy);
end;