Помогло, спасибо. еще вот вопрос
я вот таким методом нахужу все файлы в папке
Код:
APath:='С:/Temp;
isFound := FindFirst( APath + '*.*', faAnyFile, sr ) = 0; //Поиск первого файла
while isFound do
begin
if ( sr.Name <> '.' ) and ( sr.Name <> '..' ) and //Если файл не является папкой
( ( sr.Attr and faDirectory ) <> faDirectory ) then
begin
temp := ExtractFileName( sr.Name ); //получаем имя файла
end;
и в итоге в temp помещается имя файла с расширением, а как получить только имя фала?