Code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  begin
if key = VK_UP then edit1.Top := Edit1.Top-1;
if key = VK_DOWN then edit1.Top := Edit1.Top+1;
if key = VK_left then edit1.left := Edit1.left-1;
if key = VK_right then edit1.left := Edit1.left+1;

end;