[ecfisa]

Hola Impadrón.

Me parecía extraño que no te funcionara ya que lo uso hace mucho tiempo con buén resultado tanto en Delphi como en C++.
No recuerdo de donde copié el código en una oportunidad y no he podido encontralo nuevamente. (como ya comenté anteriormente aquí ).

No sé como (por que creo haber copiado y pegado) pero definitivamente omití o borré una línea en el enlace que mencionas arriba...

int  Ancho=1024, Alto=768;

 if(Screen->PixelsPerInch == 96){
    Height = Height * Screen->Height;
    Width =  Width * Screen->Width;      
    ScaleBy(Screen->Width, Ancho);  // <---- ESTA LINEA 
  }
  else if(Screen->PixelsPerInch == 120){
    Height = Height * Screen->Height / Alto;
    Height = Height + ((Height*15) / 100);
    Width = Width * Screen->Width / Ancho;
    Width = Width + ((Width*15) / 100);
    ScaleBy(Screen->Width, Ancho);
    Top = Top - 70;
    Left = Left - 70;
  }
  else {
    Height = Height * Screen->Height / Alto;
    Width = Width * Screen->Width / Ancho;
    ScaleBy(Screen->Width, Ancho);
  }

Ya hice la corrección en el enlace para evitar otro equívoco.

Un saludo.