>>363
自分で描画する

private
procedure WmEraceBkgnd(Var msg: TWmEraseBkgnd);
message WM_ERASEBKGND;

で
procedure TForm1.WmEraceBkgnd(Var msg: TWmEraseBkgnd);
begin
Msg.Result := 1;
end;

あとは自前で描画でどお?