Hogy lehet Lazarusban videót lejátszani?

Igen próbáltam már, így néz ki nekem:

unit unit1;

{$mode objfpc}{$H+}

interface

uses

Forms,Classes,Controls,Graphics,StdCtrls,FileUtil,LCLProc,UTF8Process;

type

TForm1 = class(TForm)

Button1: TButton;

Player: TProcessUTF8;

procedure Button1Click(Sender: TObject);

private { private declarations }

public { public declarations }

end;

var

Form1: TForm1;

Filename: String;

PlayerPath: String;

PlayerParams: String;

implementation

{$R *.lfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Filename:='video.mpg';

PlayerPath:=FindDefaultExecutablePath('mplayer');

PlayerParams:='"'+Filename+'"';

Player:=TProcessUTF8.Create(nil);

try

Player.CommandLine:=PlayerPath+' '+PlayerParams;

Player.Execute;

finally

Player.Free;

end;

end;

end.

Project project1 raised exception class 'EProcess' with message:

Failed to execute "video.mpg":87

Nincs telepítve, sikerült megoldanom, de kicsit másképp:

TPanel komponens és lclvlc unitot használtam hozzá. Köszönöm azért a válaszokat.