function MyCopy(Text, Tag1, Tag2: string): string;
var
   i1,i2: integer;
begin
   result := '';
   if (pos(Tag1, Text) <> 0) and (pos(Tag2, Text) <> 0) then
     begin
       i1 := pos(Tag1, Text) + length(Tag1);
       i2 := pos(Tag2, Text) - i1;
       if i2 > 0 then
         result := copy(Text,i1,i2);
     end;
end;