1:
2:
3:
4:

function MyChecking(p: PMediaPlayer): DWORD; stdcall;
begin
p.Play;
end;					

1:

BeginThread(nil, 0, @MyChecking, @MediaPlayer1, 0, ID);					

1:
2:

//BeginThread(nil, 0, @MyChecking, @MediaPlayer1, 0, ID);
MediaPlayer1.Play					

1:
2:
3:
4:

function MyChecking(p: Pointer): Integer;
begin
    TMediaPlayer(p).Play;
end;					

1:

BeginThread(nil, 0, @MyChecking, Pointer(MediaPlayer1), 0, ID);