[krlox31416]

Pega tu imagen a un panel para que veas la diferencia
y programa en el evento OnActivate

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
Var i: Integer;
begin
for i:= 1 to 500 do
begin
Panel1.left := image1.left + i;
Panel1.Update; // obligamos a que se pinte inmediatamente y se vea el cambio
end;

y si no pureba estas lineas

Código Delphi [-]
// prueba estas líneas de código y nos cuentas que tal te fue!!!
// es cuestion de jugar con los intervalos y el tamaño de tu imagen
// agrega un timer
procedure TForm1.Timer1Timer(Sender: TObject);
var band: Boolean;
begin
if band = False Then
   begin
   if Image1.Left >= Form1.Width - 1 Then
      begin
      band := True;
      end;
   end
   else
   begin
   if Image1.Left <= 1000 Then
   band := False;
   end;
if band = False Then
   begin
   Image1.Left := Image1.Left + 100;
   end
   else
   Image1.Left := Image1.Left - 100;
end;