[danbeta]

Código Delphi [-]
procedure TFirmasForm.btSiguienteClick(Sender: TObject);
Var
//    B: TBrushBitmap;
    pRecDoc: Integer;
    B: TBitMap;
begin

if TOSVersion.Platform = pfWindows then
begin
  B:= TBitMap.Create(1920,1080);
    if RoundRect1.Canvas.BeginScene = True
      then
        try
          RoundRect1.PaintTo(B.Canvas, RectF(0 , 0, 1920, 1080));
        finally
          RoundRect1.Canvas.EndScene;
        end;
        Image1.BitMap:= B;
        B.SaveToFile('Firma'+InttoStr(Random(1000))+'.png');
        B.Free;
  end
  else
  begin
    Image1.Bitmap.Assign(RoundRect1.MakeScreenshot);
    B:= TBitMap.Create(1920,1080);
    B.Assign(RoundRect1.MakeScreenshot);
    ShowMessage(' SCREENSHOT');
end;

  pRecDoc:= 93423;

  DataModule1.SQLConnection1.Close;
  DataModule1.SQLConnection1.Open;
  DataModule1.CDS_Firma.ParamByName('NOREGDOC_CFDI').Value := pRecDoc;