Hi
le code peut trouver Largeur in Pixel
mais je voudrais aussi l hauteur  (Memo.height) !

 
function GetMemolenghtInPixcel(oMemo : TMemo): Integer;
var
         i       : Integer;
 
         myCanvas : TCanvas;
begin
         result := 0;
 
         myCanvas := TCanvas.Create;
        myCanvas.Font.Assign(oMemo.Font);
         myCanvas.Handle := GetDC(oMemo.Handle);
 
for i:=0to oMemo.Lines.Count-1dobegin
if myCanvas.TextWidth(oMemo.Lines[i]) > result then
                result := myCanvas.TextWidth(oMemo.Lines[i]);
end;
 
         myCanvas.Free;
end;