Shape bewegen...

[Matze]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_left then Shape1.Left := Shape1.Left - 1;
  if key = vk_right then Shape1.Left := Shape1.Left + 1;

  //evtl. auch noch das hier, falls du's brauchst:
  if key = vk_up then Shape1.Top := Shape1.Top - 1;
  if key = vk_down then Shape1.Top := Shape1.Top + 1;
end;