Problem mit Speichern von Bild

[Flips]

Hi.

Habe folgendes Problem.
Ich habe eine Funktion mit einer Webcam.
Diese lädt die Webcam Bilder in ein TImage.
Jetzt wollte ich dieses TImage per Timer jede Sekunde speichern lassen.
Folgender Code:

Delphi-Quellcode:

procedure GetCamPictures;
var handle:THandle;
begin
 handle := capCreateCaptureWindow( PChar('Webcam'),
              WS_CHILD or WS_VISIBLE, 0, 0,
              300, 300,
              Form1.Image1.Picture.Bitmap.Handle, 0);
SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);
SendMessage(handle, WM_CAP_SET_PREVIEWRATE, 30, 0);
sendMessage(handle, WM_CAP_SET_OVERLAY, 1, 0);
SendMessage(handle, wm_cap_set_preview, 1, 0);

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 GetCamPictures;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Image1.Picture.Bitmap.SaveToFile('C:\test.bmp');
end;

Er speichert mir zwar eine Datei, allerdings ist diese leer.
Kann mir jemand helfen es richtig zu machen?
MfG
Flips