[angvelem]

Зачем обязательно TImage, можно рисовать прямо на форме, можно использовать возможности ОС

Код:

...
  private
    { Private declarations }
    procedure WMEraseBkgnd(var Msg : TWMEraseBkgnd); message WM_EraseBkgnd;
...
var
  bmBkGnd	: TBitmap;
...
procedure TForm1.WMEraseBkgnd;
var 
  aRect : TRect;
begin 
  aRect := GetClientRect;
  BitBlt(TWMEraseBkGnd(Msg).DC, aRect.Left, aRect.Top, aRect.Right - aRect.Left, aRect.Bottom - aRect.Top, bmBkGnd.Canvas.Handle, 0, 0, SRCCOPY);
  Msg.Result := 1;
end;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
  bmBkGnd := TBitmap.Create;
  // грузим картинку для фона
end;