[}{ОТТ@БЫЧ]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top+10;
Image1.Left:=Image1.Left+10;
end;

будет двигаться по диоганали.
Принцип думаю понял =)