[Aristarh Dark]

Какой вопрос, такой и ответ:

Код:

procedure MoveUp(Model:TControl);
begin
  Model.Top:=Model.Top-1;
end;
procedure MoveDown(Model:TControl);
begin
  Model.Top:=Model.Top+1;
end;
procedure MoveLeft(Model:TControl);
begin
  Model.Left:=Model.Left-1;
end;
procedure MoveRight(Model:TControl);
begin
  Model.Left:=Model.Left+1;
end;