procedure TMainFrm.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);  
begin  
  IF MyCAD1.GetSelectedShape <> nil then  
  begin  
   if (Key=37) then    //Left  
     MyCAD1.Move(MyCAD1.GetSelectedShape,-1,0);  
   if (Key=38) then    //up  
     MyCAD1.Move(MyCAD1.GetSelectedShape,0,-1);  
   if (Key=39) then    //Right  
     MyCAD1.Move(MyCAD1.GetSelectedShape,1,0);  
   if (Key=40) then    //down  
     MyCAD1.Move(MyCAD1.GetSelectedShape,0,1);  
  end  
end;