letzten 4 ziffern vom string abschneiden

[Marcasso]

müsste ich es dann so schreiben?

form1.bild.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '/bild/' + Copy(extractfilename(form2.ListA.Items.Strings[form2.listA.itemindex]), 1, length(extractfilename(form2.ListA.Items.Strings[form2.listA.itemindex]))-4));