procedure Tform1.Parser(StartPosition,StopPosition,ParseString : string ) ;
var
StartPos,StopPos, Enddelete: Integer ;
FinalResult : String ;
Stop : Boolean ;
begin
Resultparser := Tstringlist.Create ;

repeat
StartPos :=Pos(StartPosition,ParseString) + Length(StartPosition);
StopPos :=Pos(StopPosition,ParseString);

Finalresult := (Copy(ParseString, StartPos, StopPos-StartPos));
Delete(ParseString, StartPos- Length(StartPosition),StopPos+length(StopPosition)- StartPos+ Length(StartPosition));
ResultParser.Add(Finalresult) ;
until (ResultParser.Count = 9 ) ;
end;