CreateThread(nil,0,@MyProcedure,0,0,nil);