[pesi]

Код:

var
str :string;
i :integer;
begin
str := ExtractFileName('C:\1\Delete.mht');
i := Length(ExtractFileExt(str))-1;
Delete(str, Length(str)-i, MaxInt);
ShowMessage(str);
end;