Hola vivamotos.
Probá si te sirve de este modo:
Código:
void __fastcall TForm1::FormShow(TObject *Sender)
{
FIni_H = (double)Memo1->Height / Height;
FIni_W = (double)Memo1->Width / Width;
}
void __fastcall TForm1::FormCanResize(TObject *Sender, int &NewWidth,
int &NewHeight, bool &Resize)
{
Memo1->Height = (int)NewHeight * FIni_H;
Memo1->Width = (int)NewWidth * FIni_W;
}
FIni_H y FIni_W son variables de tipo double, privadas de Form1.
Saludos.