Form1.Canvas.Assign funktioniert nicht ?!?

[alcaeus]

Hi! Ich versuche mit folgendem Code, eine beliebige Grafik auf ein Form zu kopieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Background := TBitmap.Create;
  try
    Background.Width := ClientWidth div 2;
    Background.Height := ClientHeight div 2;
    Image1.Width := ClientWidth div 2;
    Image1.Height := ClientHeight div 2;
    Background.Canvas.Brush.Style := bsSolid;
    Background.Canvas.Brush.Color := clBlack;
    Background.Canvas.FillRect(Rect(0,0,Width,Height));
    Image1.Canvas.Assign(Background.Canvas);
    Form1.Canvas.Assign(Background.Canvas);
  finally
    Background.Free;
  end;
end;

Background ist eine Private-Variable des Forms, Image1 ist eine TImage-Kompo auf dem Form. Auf dem Image zeigt es mir den Inhalt des Background-Bitmaps an (derzeit ein weißes Rechteck), aber auf dem Form keine Spur. Kann mir hier irgendjemand weiterhelfen?