Problem mit dem TMediaPlayer

[klose010]

Ich hab folgendes Problem:
Ich hab ein Video in den TMediaplayer geladen, und lass es auf einen TAnimate abspielen. Ich habe eine Trackbar, mit der ich die Position vom Video anzeigen und verändern kann:

Delphi-Quellcode:

procedure TForm1.ZeitleisteChange(Sender: TObject);
var i : integer;
begin
i := zeitleiste.position;
mediaplayer1.Position := round(i);
end;

Wenn ich jetzt die Zeitleiste verändere, dann beleibt das Video stehen. Wenn ich dann beim TMediaPlayer auf Play klicke, fängt das Video wieder von vorne an. Und wenn ich es mit dem Befehl Mediaplayer1.Play wieder starte kommt dieser Error:

Zitat:

Im Projekt Project1.exe ist eine Exception der Klasse EInvalidOp aufgetreten. Meldung: 'Fehler bei Fließkommaoperation'. Prozeß wurde angehalten. Fortfahren mit Einzelschritt oder Start.

Warum ist das so, und wie kann ich das ändern?