Problema sencillo en Delphi/Lazarus

[yako-_-]

Buenas!

Mi duda seguro que es sencilla, tengo un código en delphi pero  no se hacer que algo se ejecute de forma indefinida sin que pase un evento concreto.
Me explico:

Código [Seleccionar] Expandir

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

 { TForm1 }

 TForm1 = class(TForm)
   Image1: TImage;
   Timer1: TTimer;
   Timer2: TTimer;
   procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
     );
   procedure Timer1Timer(Sender: TObject);
   procedure Timer2Timer(Sender: TObject);
   procedure main();
   procedure movimiento ();

 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation


{$R *.lfm}

{ TForm1 }      
procedure TForm1.movimiento ();
begin
if Image1.Left >= 280 then
  begin
    Timer1.Enabled:=true;
    timer2.Enabled:=false;
  end
   else if Image1.Left <= 0 then
   begin
     Timer1.Enabled:=false;
     Timer2.Enabled:=true;
   end;
end;

movimiento(); // no compila, quiero que esto se ejecute solo sin que pase ningun evento.

end.    

Como puedo hacer un procedimiento o donde tengo que poner la linea movimiento(); para que se ejecute de forma indefinida (como un loop) en el programa, como si fuera el el main de pascal o c ¿O hay un equivalente a "void main" en Delphi/Lazarus?

un saludo y gracias de antemano

[yako-_-]

Buenas, ya e conseguido hacerlo de forma provisional, lo que hago es crear un procesimiento con un ttimer procedure ontimer para que se ejecute el procedimiento que quiero de forma indefinida durante la ejecucion del programa. No obstante si hay otra formar o alguien sabe la forme en la que se suele hacer que la postee.

Un saludo!