Linien auf TPicture.Bitmap.Canvas funktionieren nicht

[hitzi]

Hallo,

folgender Code zeichnet bei mir keine Linie:

Delphi-Quellcode:

[..]
var bmp : TPicture;
    jpg : TJPEGImage;
begin
[..]
  jpg := TJPEGImage.Create;  
  bmp := TPicture.Create;
  try
    bmp.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'dat\' + name + '.bmp');
    bmp.Bitmap.Canvas.Pen.Color := clBlack;
    bmp.Bitmap.Canvas.Pen.Style := psSolid;
    bmp.Bitmap.Canvas.Pen.Mode := pmNotXor;
    bmp.Bitmap.Canvas.MoveTo(0, 0);
    bmp.Bitmap.Canvas.LineTo(100, 100);

    jpg.Assign(bmp.Bitmap);
    jpg.SaveToFile(ExtractFilePath(ParamStr(0)) + 'temp\' + ExtractFileName(Filename) + '.jpg');
  finally
    FreeAndNil(bmp);
    FreeAndNil(jpg);
  end;

Ein bmp.Bitmap.Canvas.TextOut funktioniert jedoch und es wird ein Text in der gespeicherten JPG Datei angezeigt. Wo liegt mein Fehler?

Gruss