[uroksan]

ребят помогите!!! возникла проблема формирования имени файла при создании!!!

FileSelectDialog.FillTree('IFH');

If FileSelectDialog.ShowModal <> mrOk
Then
Exit
else
begin
assignfile(f,FileSelectDialog.FileName);
reset(f);
assignfile(fak,FileSelectDialog.FileName+('.ak1')) ;// результат этой строчки равен созданию файла с расширением .ак1 но в имени он мне указывает еще и ifh как избавиться от ifh в имени файла
rewrite(fak);
assignfile(fe,FileSelectDialog.FileName +('.if'));
rewrite(fe);
PreobrFileAKS(Kan,s);
closefile(fak);
closefile(fe);
closefile(f);
end;
end;

[Rosenkrantz]

Посмотрите в хелпе описание функций:
ExtractFileName
ExtractFileExt
ExtractFilePath

UPD: И ChangeFileExt, конечно