Необычный код - необычный результат.

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  x, y: integer;
begin
  for x := 0 to PaintBox1.Width do
    for y := 0 to PaintBox1.Height do
      PaintBox1.Canvas.Pixels[x, y] := x*y;
end;

unit speed;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Math;
 
type
  TRGB = record
    b,g,r:byte;
  end;
 
  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;
 
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  b:TBitMap;
  t: Real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
b:=TBitMap.Create;
b.pixelformat:=pf24bit;
//b.width:=500;
//b.height:=500;
b.width:=Clientwidth;
b.height:=Clientheight;
 
t:=0;
 
timer1.Interval:=10;
timer2.Interval:=10;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
p:PARGB;
x,y:integer;
x_myfunc,y_myfunc:integer;
func: LongWord;
begin
  for y:=0 to b.height-1 do
  begin
    p:=b.scanline[y];
    for x:=0 to b.width-1 do
    begin
      func:=Trunc((x*y*(2+cos(t))));
      p[x].r:=GetRValue(func);
      p[x].g:=GetGValue(func);
      p[x].b:=GetBValue(func);
    end;
  end;
  //canvas.draw(0,0,b);
 
canvas.draw(0,0,b);
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  b.free;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  t:= t + 0.005;
end;
 
end.