Получить подстроку из строки

//********************** ОПИСАНИЕ ******************************
//Функция возвращает определенный отрезок строки из
//строки разделенной разделителем
//**************************************************************
//Str – строка разделенная разделителями из,
//которой извлекается подстрока
//Separator – строка разделитель
//Index – номер отрезка

function GetSubStrInStr(Str, Separator:string; Index:Integer):string;
var
i:Integer;
begin

Result:=”;
i := 1;
if Index > 1 then
while i < Index do
begin
if Pos(Separator, Str) = 0 then
Delete(Str, 1, Length(Str)) else
Delete(Str, 1, Pos(Separator, Str));
i := i + 1;
end;

if Pos(Separator, Str) = 0 then
Result := Copy(Str, 0, Length(Str)) else
Result := Copy(Str, 0, Pos(Separator, Str) – 1);

end; // GetSubStrInStr