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

function ThreadProc(p:pointer):DWORD; stdcall;
begin

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