1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function ShortenPath(const APath: String; AMaxPixelWidth: Integer; APlaceHldr: String; APrefferedSection: TPrefferedSection;
   AFont: TFont): String;
var
  WorkStr: String;
  i,a,AvailPixels: Integer;
  DirParts: TStrings;
  TestCanvas.TCanvas;
begin
  if ACanvas.TextWidth(APath) <= AMaxPixelWidth then
  begin
    Result := APath;
    Exit;
  end;
  DirParts := TStringList.Create;
  TestCanvas := TCanvas.Create;
  TestCanvas.Font := AFont;
  AvailPixels := AMaxPixelWidth-TestCanvas.TextWidth(Copy(APath,1,2))-TestCanvas.TextWidth(APlaceHldr);  { <-- Fehler kommt hier }
  
  {[...]}

  TestCanvas.Free;
end; { ShortenPath }                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  TempCanvas: TCanvas;
  notUsed: HWND; 

begin
  tempCanvas := TCanvas.Create;
  tempCanvas.Handle := GetDeviceContext(notUsed);

  [...]
end;