Przycinanie się obrazu z kamery

Zacina mi sie obraz z kamery do Timage na androidzie a pod windowsem ladnie dziala. Pisze aplikacje w Delphi Firemonkey. Gdy napisalem aplikacje w eclipse to obraz ladnie chodzil. A tu mam problemy przycina sie nie samowicie. Coś nie tak mam z kodem ?

procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject;
  const ATime: Int64);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create(0, 0);
  CameraComponent1.SampleBufferToBitmap(bmp, True);
  TThread.Synchronize(nil,
    procedure
    begin
      Image1.Bitmap.Assign(bmp);
    end
  );
  bmp.Free;
end; 

 
procedure TfrmPrincipal.SampleBufferSync;
begin
  cmcPrincipal.SampleBufferToBitmap(imgFoto.Bitmap, true);
end;

procedure TfrmPrincipal.cmcPrincipalSampleBufferReady(Sender: TObject;
  const ATime: Int64);
begin
  TThread.Synchronize(TThread.CurrentThread, SampleBufferSync);
end;

procedure TfrmPrincipal.FormShow(Sender: TObject);
begin
  cmcPrincipal.Kind := FMX.Media.TCameraKind.ckBackCamera;
  try
    cmcPrincipal.FlashMode := FMX.Media.TFlashMode.fmFlashOff;
  except

  end;
  cmcPrincipal.Active := True;
end;

Wykorzystalem ten kod co podales mi i dalej to samo. Na windowsie dziala ok lecz na androidzie obraz poklatkowany jest.

a to sprawdzał...http://edn.embarcadero.com/article/42558

Możesz też spróbować wyciągnąć obraz za pomocą VLC:

http://4programmers.net/Forum/Newbie/168317-jak_wyciagnac_strumien_z_kamery_ip

  TThread.Synchronize(nil,
    procedure
    begin
      Image1.Bitmap.Assign(bmp);
    end

wtf

usun to :P sprawdz na innym telefonie czy tez tnie. Jaka wersje delphi masz? Sprobuj XE7, na starszych szalu nie ma jesli chodzi o androida.