DWORD ThreadProc(void * p)
{
............
 ExitThread(0);
 return 0;
}

function ThreadProc(p:pointer):DWORD;
begin

.............
 ExitThread(0);
 result := 0;
end;