Кораблик Опции

[Zigfried]

Доброго времени суток,нужна помощь с задачкой: нужно чтобы кораблик проплыл по форме и дойдя до конца исчез а вместо этого он начинает растягивать форму помогите это исправить пожалуйста,задача прикреплена.

[IUnknown]

В новых версиях Дельфи уже не растягивает. Но вообще попробуй рисовать не все изображение а только ту часть, которая помещается на форму:

begin
   if image2.Left<410 then
   begin
      image2.Visible:=false;
      if image2.Left > 300 then
      begin
         image2.Left:= -200;
         // Здесь не забудь восстановить ширину Image2
      end;
      image2.Left:=image2.Left+10;
      if Image2.Left + Image2.Width > Image1.Left + Image1.Width then
      begin
         Image2.Width := Image1.Left + Image1.Width - Image2.Left;
      end;
      image2.Visible:=true
   end
   else
   begin
      image2.Visible:=false;
      image2.Left:=112;
      // Здесь не забудь восстановить ширину Image2
      timer1.Enabled:=false;
   end;
end;