Erstelle eine unsichtbares Label mit fester Breite und wordwrap, gib dem Label die gleichen Schrift-Einstellungen wie das Memo, dann kannst du
den Canvas vom Label verwenden, um die Texthöhe herauszufinden:
Delphi-Quellcode:
H := Label1.Canvas.TextHeight(Meintext);
Memo1.Height := H ;