delphi - How to move shapes with the key buttons: up, left, down, right in delphi

Question

first of all i'd like to apologise in advance if the title is not clear, so i will explain it.

I've created a shape, which you can move, by moving the mouse around, when you run the program:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
shape1.Left:=x;
shape1.Top:=y;
end;

end.

The thing is, that i didn't like it that the user has to use his mouse to move the shape, so i'd like to do it by pressing the key buttons UP, DOWN, LEFT, RIGHT, of the keyboard.

Thanks