0,8 Celeron
256 ОЗУ
32мб Видео

if fFirstFrame then begin
Brush.Color := clBlack;
FillRect(rcMaxArea);
end else
Pen.Color := clBlack;
MoveTo(xOldWhite0,yOldWhite0);
LineTo(xOldWhite1,yOldWhite1);
// Pen.Color := clBlack;
MoveTo(xOldRed0,yOldRed0);
LineTo(xOldRed1,yOldRed1);
// Pen.Color := clBlack;
MoveTo(xOldBlue0,yOldBlue0);
LineTo(xOldBlue1,yOldBlue1);
end;

Pen.Color := clWhite;
MoveTo(xNewWhite0,yNewWhite0);
LineTo(xNewWhite1,yNewWhite1);

Pen.Color := clRed;
MoveTo(xNewRed0,yNewRed0);
LineTo(xNewRed1,yNewRed1);

Pen.Color := clBlue;
MoveTo(xNewBlue0,yNewBlue0);
LineTo(xNewBlue1,yNewBlue1);

//

xOldWhite0 := xNewWhite0;
xOldWhite1 := xNewWhite1;
yOldWhite0 := yNewWhite0;
yOldWhite1 := yNewWhite1;

xOldRed0 := xNewRed0;
xOldRed1 := xNewRed1;
yOldRed0 := yNewRed0;
yOldRed1 := yNewRed1;

xOldBlue0 := xNewBlue0;
xOldBlue1 := xNewBlue1;
yOldBlue0 := yNewBlue0;
yOldBlue1 := yNewBlue1;

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, StdCtrls, Buttons;

type
 TForm1 = class(TForm)
   Panel1: TPanel;
   PaintBox1: TPaintBox;
   SpeedButton1: TSpeedButton;
   procedure PaintBox1Paint(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure SpeedButton1Click(Sender: TObject);ф
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 PaintBox1.Canvas.MoveTo(0,0);
 PaintBox1.Canvas.LineTo(1000,1000);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 DoubleBuffered := True;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 i: Integer;
begin
 for i := 0 to 1000 do PaintBox1.Repaint;
 ShowMessage('ok');
end;

end.