Delphi to BCB ...ditemi se ho tradotto bene

[verloc]

procedure TfrmMain.QSWorldGraph1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
...
if (shift = [ssLeft,ssShift]) and bInZoom ...
tradotto in
if( Shift.Contains(ssLeft|ssShift) && bInZoom)


...
if MoveCount mod 5 = 0 ...
tradotto in
if(MoveCount%5==0)

...
inc(MoveCount);
tradotto in
++MoveCount