Окно формы перемещать вверх-вниз с шагом, установленным пользователем (Delphi)

[Бджілка]

Помогите,пожалуйста, написать пограмму.Окно формы перемещается вверх-вниз с шагом, установленным пользователем. Если можно поподробнее


_____________
Тема создаваемого сообщения должна обязательно отражать суть решаемой задачи, а не только язык программированния.
В следующий раз тема с таким названием будет удалена или закрыта!

Модератор.

[tsar_]

А с помощью чего будет осуществляться перемещение: мышь, кнопки на форме, клавиши-стрелки?
Вот код для стрелок (пишется для голой формы):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMKEYDOWN(var msg:TMessage);
    message WM_KEYDOWN;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.WMKEYDOWN(var msg: TMessage);
begin
 case msg.WParam of
  vk_left: Form1.Left:=Form1.Left-100;                               //шаг равен 100 пикселей
  vk_right: Form1.Left:=Form1.Left+100;
  vk_up: Form1.Top:=Form1.Top-100;
  vk_down: Form1.Top:=Form1.Top+100;
 end;
end;

end.

Здесь обрабатывается сообщение WM_KEYDOWN, в зависимости от его параметра WParam, который определяется нажатой стрелкой окно движется в соотв. направлении на шаг.