[nixel]

Сообщение от Mp3

то есть этот код неправильный получается?

Это код для других целей.

Сообщение от Mp3

а вот это как??можно поподробнее плиз

Что-то вроде такого. На сверх-правильность не претендую, просто как простейшая реализация. Даже без каких-то функций

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.Imaging.pngimage;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
  a: integer = 1;  //Перемещение по х
  b: integer = 1;  //перемещение по y

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled:= false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var temp: integer;
begin
  if (Image1.Top <= 0) or ((Image1.Top + Image1.Height) >= Form1.ClientHeight) then b:= -b;
  if (Image1.Left <= 0) or ((Image1.Left + Image1.Width) >= Form1.ClientWidth) then a:= -a;
  Image1.Left:= Image1.Left + a;
  Image1.Top:= Image1.Top + b;
end;

end.

Соответственно, как ты будешь менять а и b уже твое дело. У меня они просто по единице каждая.

Добавлено:
У меня Delphi XE2, соответственно если будешь пытаться запускать на младших версиях, будет ругаться на подключаемые модули. Скопируй код обработчиков вручную.
Движение картинки - файл проекта
Project1 - ехе-файл, разбитый на два архива. Открывать из part1 соответственно. Если будет ругаться антивирь - не переживай, просто я ехе сжал через UPX, а то в оригинале он занимает 7 с половиной метров -_- (vcl такой vcl...)