samoistne dodawanie znaków..wrr..(BeginPos, EndPos)

Mam taki kod (niżej) i zmienna "koder" zamiast przyjmować wartość String, która jest pomiędzy BeginPos i EndPos dodaje jeszcze znaki po tym Stringu ( a jest ograniczenie do ">). Znaków jest łącznie 88. Nie wiadomo dlaczego tak się dzieje, dlatego proszę o pomoc.

BeginPos := Pos('mailto:', Output.DataString)+7;
EndPos := Pos(' ">', Output.DataString);

koder := Copy(Output.DataString, BeginPos, EndPos);
Memo1.Text:=koder;

Obadaj to, mi się nie chce :-D

function cuter(s, fs, ls: string; fc, lc: integer): string;
begin
Delete(s, 1, Pos(fs, s) - 1);
if Pos(ls, s) = 0 then
Delete(s, Length(s) + 1, Length(s))
else
Delete(s, Pos(ls, s) + Length(ls), Length(s));
Delete(s, 1, fc);
if lc > Length(s) then
Delete(s, 1, lc)
else
Delete(s, Length(s) - lc + 1, lc);
Result := s;
end;

var
s : String;
begin
s := 'bla bla mail';
ShowMessage(cuter(s, 'mailto:', '">', 7, 2));
end;

OGROMNE DZIĘKI PIECHNAT :-) :-) :-)