procedure TForm1.FormPaint(Sender: TObject);
var
 TmpX, TmpY: Byte;
 MyImage: TBitmap;
begin
 Form1.Width := 260;
 Form1.Height := 260;
 Image1.Width := 250;
 Image1.Height := 250;
 Image1.top := 5;
 Image1.width := 5;
 MyImage := TBitmap.Create;
 MyImage.Width := 250;
 MyImage.Height := 250;
 for TmpX := 0 to 249 do
 for TmpY := 0 to 249 do
 MyImage.Canvas.Pixels[TmpX, TmpY] :=
 RGB(TmpX, 250 - TmpY, (TmpX + TmpY div 2));
 Image1.Canvas.Draw(0, 0, MyImage);
 MyImage.Free;
end;