Centralizar um formulário na tela

procedure TfrmPedVendEndeRetirada.centralizarFormulario;
var
  r: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
  Left := ((r.right - r.left) - Width) div 2;
  Top := ((r.bottom - r.top) - Height) div 2;
end;