Работа с текстовым типом

[brednew]

Доброго времени суток уважаемые программисты. У меня такая проблема, мне нужно из строки(берется в OpenDialog)удалить последние 7 символов(название файла не изменяется никогда, зато путь может измениться) и добавить к нему еще название каталога. название файла, расширение, но выдает ошибку в строке f:=delete(f,n,8);

procedure TForm9.bStartBackupClick(Sender: TObject);
var s,f : String;
n:real;
begin
s:= FormatDateTime('yyyy.mm.dd_hh.nn.ss', Now);
f:=edit1.Text;
n:=length(f);
n:=n-7;
f:=delete(f,n,8);
CopyFile(Pchar(f), Pchar(f+'Backup\' + s + '.ib'), true);
edit2.text:=(f+'Backup\' + s + '.ib');
showmessage('Копирование Закончено');
end;

помогите пожалуйста.

[Stilet]

delete(f,length(f)-8,8)

Delete - процедура а не функция.
Кстати: f:=ExtractFilePath(f) надежнее будет

[brednew]

спасибо большое за ответы, извиняюсь если доставил неудобства или отвлек от чего-нибудь важного

[Stilet]

Да все нормально
Не я так другой кто бы ответил, на то и форум. Ибо нас легион

[antoxamad]

можно заюзать так же
copy(text, 'позиция начала', 'позиция конца')

[Stilet]

можно заюзать так же

В данном ТЗ можно