Mit ShockwaveFlash YouTube-Videos abspielen?

[Lion]

Jah... hab ich schon, aber das ist nicht so einfach wie ich dachte. Hier mein Versuch, der nicht läuft:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Flash.Play;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Flash.Movie := ExtractFilePath(Application.ExeName) + '120.swf';
//Flash.Play;
Flash.Movie := 'http://www.youtube.com/watch?v=SXnWbnH-W4o';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Flash.Stop;
end;