Max bredde af (resizeble) form s caption

Ønsker at vise filnavn og placering i programs caption, men skærer i placeringen fremfor filnavnet når vinduet resizes (mindre).

Nedenstående virker men tager ikke højde for temaer eller 'ekstra store skrifttyper' (i egenskaber for skærm)

Kan man få fat i korrekt canvas for denne 'caption linie' (nedenstående er forkert!) eller kan man på anden vis aflæse font og fontstørrelse for 'caption linie'?

Tak for evt. hjælp.

Kode:
txt:= getFilNavnInclSti();
canvas := TCanvas.Create;
canvas.Handle := GetWindowDC(Self.Handle) ;
txt:= MinimizeName(txt, canvas, Self.Width-225);
caption:= txt;