Создать и обработать движение картинки на Timage, Delphi

[Человек Панда]

Здравствуйте,форумчане! Столкнулся со следующей проблемой: Необходимо на форме проекта(TForm) создать картинку (Timage).Необходимо создать программно.Разместить вручную я могу,но задача другого характера:на форме должна появиться картинка,загруженная из папки с картинками, и продвинуться с правого края форма до левого(то есть горизонтально слева на право).При достижении конца формы картинка удаляется,освобождая память.Далее планирую связать с таймером и давать появление картинки в цикле. вот,что наработал.Ожидаемого эффекта нет(ничего не меняется)

var imgblock:timage;
begin
 mgblock := TImage.Create(form1);
 with imgblock do
    begin
    imgblock.Picture.Create;
    Stretch := True;
    imgblock.Left:=675;
    imgblock.Top:=333;
    imgblock.Picture.LoadFromFile('Gif\sk.gif');
       while form1.imghero.left>0 do 
       begin
       imgblock.left:=imgblock.left-1; 
       imgblock.Picture.LoadFromFile('Gif\sk.gif'); 
       application.processmessages;
       end;
  end;
end;

[Stilet]

В качестве идеи:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    j:TJPEGImage;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  tag:=0;
  j:=TJPEGImage.Create;
  j.LoadFromFile('d:\1270446831_6301331xei.jpg');
  Timer1.Interval:=10;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.StretchDraw(rect(tag,0,tag+50,50),j);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if tag<Width then tag:=tag+1 else tag:=-50;
  Repaint;
end;

end.

[Serge_Bliznykov]

да что Вы рассказываете?! Что может происходить, если у Вас код даже не компилируется (в коде ряд опечаток, которые и делаю код некомпилируемым).
это раз.

второе. Вы забыли задать parent для картинки. читай тут, например

третье. Движение намного лучше сразу делать в таймере.

четвертое, зачем в цикле каждый раз грузить картинку из файла?! Это неверно. Достаточно это сделать один раз, до цикла.

ну есть ещё и пятое, и шестое и т.д. но вам, думаю, пока и этого хватит...

UPDATE
оп-с.. Stilet опередил...

[Человек Панда]

Спасибо за помощь.Буду разбираться.