Дарю :-)

Вроде бы без ошибок :-)
По крайней мере, пока не встретилось

function GetStrPiece(InStr,Separator:string;Count:integer):string;
// Функция возвращает Count-й кусок из строки InStr,
// где разделителями служит подстрока Separator
var i1,i2:integer;
begin
i1:=NPos(Separator,InStr,Count-1);
if i1=0 then
i1:=1-Length(Separator);
i2:=NPos(Separator,InStr,Count);
if i2=0 then
i2:=Length(InStr)+1;
Result:=Copy(InStr,i1+Length(Separator),i2-i1-Length(Separator));
end; {GetStrPiece}

А NPos - это из RxLib