Delphi - video

Mám problém,
v delphi jsem udělal přehrávač medií, funguje v pohodě, jen u videa je zádrhel - přehrává se moc rychle. Obslužný kód pro načtení (a zároveň přehrání) videa je následující:

if opendialog1.Execute then begin
with MediaPlayer1 do
begin
FileName := OpenDialog1.FileName;
Open;
Frames := 1;
Step;
Notify := True;
DeviceType := dtAVIVideo;
DisplayRect := Rect(0,0,panel1.Width,panel1.Height);
play;
end;
panel1.Caption := '';
end;

Video se po načtení začne přehrávat několikanásobnou rychlostí. Má to ještě jeden háček: nestane se tak vždy, jen u "velkých" videí.