Bitmap ist ungültig

[Stread]

Hi,
ich wollte mal das Bild meiner Webcam anzeigen und abspeichern.
ich habe dazu den (doch schon alten) Code von TStringlist gefunden.
http://www.delphipraxis.net/59566-we...den-frame.html
Habe soweit alles gemacht wie gesagt, aber beim Compilieren sagt mein Delphi XE
EInvalidGraphic mit Meldung 'Bitmap ist ungültig' und es springt zur Projektdatei

Delphi-Quellcode:

program PCam2;

uses
  Forms,
  UCam2 in 'UCam2.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);  //Rot
  Application.Run;                        //markiert
end.

Es gibt ja noch keine eigene Komponente zur Webcam?
Wenn er denn funktioniert, wäre der Source schön kurz und man muss nicht 5 andere Units mit 5000 Zeilen Code einbinden.