[:S.p.a.m.]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_UP then edit1.Left:=edit1.Left+1;
end;

Используй KeyDown и никаких проблем