Problem beim Zeichnen eines neuen Bitmap

[Cyf]

Entschuldigt den Titel, ist vermutlich wenig aufschlussreich, aber einen passenderen finde ich nicht.
Folgender Code verhält sich nicht wie ich es erwarten würde:

Delphi-Quellcode:

procedure TMainForm.PaintCoords;
var
  Bitmap: TBitmap;
begin
  Image.Picture.Bitmap.Free;
  Bitmap:= TBitmap.Create;
  Bitmap.SetSize(MaxX+1, MaxY+1); //beide global

  //eigentlich bischen was komplexeres, aber hiermit ist es bei mir reproduzierbar
  Bitmap.Canvas.LineTo(100,100);

  Image.Picture.Bitmap:= Bitmap;
end;

Beim ersten Aufruf erscheint kein Bild, erst wenn der Code mindestens ein weiteres Mal aufgerufen wird, verhält er sich wie erwartet.
Mache ich grobe Fehler bei der Objekt-Erstellung, oder wo liegt der Haken? Habe schon ein wenig rumprobiert und komme tatsächlich nicht darauf.