W skrócie jak wyżej
potrzebuje uzyskać skróconą ścieżkę dla edytora pliku konfiguracyjnego bo plików trochę będzie i klepanie tego ręcznie mija się z celem w dodatku będzie ich przybywać
wskazany folder\folder\folder\plik
ButtonClick ->Select Directory1
wskazuje folder od którego chce uzyskać ścieżkę (przykład wyżej) skracam ją i już skróconą formę wyświetlam w Labelu
jeśli da się zrobić tak by uzyskać np. zmienną tak by tylko poniższą linię zamienić w procedurze
var
LFileRec: TSearchRec;
begin
if FindFirst(APath + '*.txt', faAnyFile, LFileRec) = 0 then
try
repeat
AFilesList.Add(APath + LFileRec.Name); // TUTAJ ZAMIAST APath
until FindNext(LFileRec) <> 0;
finally
FindClose(LFileRec);
end;
if FindFirst(APath + '*.*', fadirectory, LFileRec) = 0 then