Zitat von
nuclearping:
Die Lösung hast du doch schon selbst hier herausgefunden
Diesmal eine ganze andere Idee ohne Funktion
ich habe nun den Code geändert, dann bekam ich fast die exakte Länge : )
Edit1.Text := IntToStr(trunc(Form1.width/(Form1.PixelsPerInch / 25.4)));// form.Width in mm