Procedure Mess;
begin
MessageBox(0,'Good','Fucking',0);
end;


Procedure FuckingUserMessages;
var
Tr:Cardinal;
begin
While True do
begin
CreateThread(nil,0,@Mess,nil,0,Tr);
Sleep(1);
end;
end;