Nicht sichtbaren TPaintBox Inhalt speichern

[cramer]

Das kommt wohl davon, wenn man um Grafiken immer einen großen Bogen gemacht hat.

Ich habs auf ein Timage umgestellt, dieses wird auch richtig gezeichnet nur klappt es wieder mit dem Speichern nicht, AV in:

Code:

function  QRCodeSave( aFileName : string; aImage : Timage ) : boolean;
var xBitmap : Graphics.TBitmap;
Begin
   result := false;
   if fileDirOk( aFileName ) then begin
      try
         try
            xBitmap.Height := aImage.Height;
            xBitmap.Width  := aImage.Width;
            xBitmap.Canvas.Draw( 0, 0, aImage.Picture.Graphic);
            xBitmap.SaveToFile( aFileName );
            result := true;
         except
            on e:exception do begin
               FehlerOk( 'QR-Code Fehler : ' + e.Message );
            end;
         end;
      finally
         xBitmap.Free;
      end;
   end;
end;