[urahara]

ну просто фон закрасить можно и так:

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(0,0,ClientWidth,ClientHeight);
end;

тут же можно и картинку нарисовать