Движение изображения в TPaintBox

var
  Form1: TForm1;
  paintpict,fon: Tbitmap;
  pict_pos:integer;
 
 
implementation
 
{$R *.dfm}
{$R fon.res}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
fon:=Tbitmap.Create;
paintpict:=Tbitmap.Create;
fon.LoadFromResourceName(hInstance,'fon');
paintpict.Canvas.Draw(0,0,fon);
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
paintbox1.Canvas.Draw(0,0,paintpict);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   pict_pos:=pict_pos+1;
   if pict_pos>=fon.Width then pict_pos:=0;
   paintpict.Canvas.Draw(pict_pos,0,fon);
   paintbox1.Repaint;
end;

var
  Form1: TForm1;
  fon: Tbitmap;
  pict_pos:integer;
 
 
implementation
 
{$R *.dfm}
{$R fon.res}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
fon:=Tbitmap.Create;
paintpict:=Tbitmap.Create;
fon.LoadFromResourceName(hInstance,'fon');
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
paintbox1.Canvas.Draw(-1*pict_pos,0,fon);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   pict_pos:=pict_pos+1;
   if pict_pos>=(fon.Width div 3)*2 then pict_pos:=0;
   paintpict.Canvas.Draw(pict_pos,0,fon);
   paintbox1.Refresh;
end;

sleep(10);
application.processmessages;

procedure paint;
begin
  repeat
begin
 pict_pos:=pict_pos+1;
   if pict_pos>=(fon.Width div 3)*2 then pict_pos:=0;
   form1.paintbox1.Canvas.Draw(0,0,nil);
   sleep(10);
   application.ProcessMessages;
end;
until application.Terminated;
end;