[hal1967]

Donde

Código Delphi [-]
    Left := self.ClientWidth + (Screen.Height - self.ClientHeight) /2 ;

debe ser

Código Delphi [-]
    Left := self.ClientWidth + (Screen.Height - self.ClientHeight) div 2 ;

La diferencia 101/2 es 50.5 102 div 2 es 50