如何用CTRL+上下左右键实现控件拖动

Question

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if ssCtrl in shift then
     begin
        case  key of
        37 : edit1.left := edit1.left - 20 ;
        38  : edit1.Top := edit1.Top -20 ;
        39 : edit1.left := edit1.left + 20 ;
        40 : edit1.Top := edit1.Top + 20 ;
        end ;
     end ;
end;