Fotoğraf çekmek

[quiet1day]

procedure TFotoForm.Button1Click(Sender: TObject);
begin
CameraComponent.Active := True;
end;

procedure TFotoForm.CameraComponentSampleBufferReady(Sender: TObject;
 const ATime: TMediaTime);
begin
     TThread.Synchronize(TThread.CurrentThread, GetImage);
end;

procedure TFotoForm.GetImage;
begin
 CameraComponent.SampleBufferToBitmap(imgCameraView.Bitmap, True);
end;

kodlarını kullanarak image nesnesine Camerayı aktarıyorum  bir butona fotoğraf çekmek işlemini nasıl yapaarız

---

amacım form üzerinden çekim yapmak