а нельзя ли просто найти первую запятую,взять первое число ,потом PosEx'ом найти вторую запятую от первой. и второе число взять.
а тримом пробелы убрать как вариант.
Такой примерно код: ,правда написал всё в каждой строчке чтоб наглядно было,а можно сразу без лишних переменных,буквально в три строчки весь код уместить.
Код:
Uses strUtils //подключаем PosEx
...
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
x:integer;
begin
s:=Edit1.Text;//едит1 содержит строку для парсинга
x:=Pos(''',',s)+2;//ищем позицию первой запятой с ковычкой //+2 потому что длинна ковычки и запятой-два символа
edit2.text:=Copy(s,x,posex(',',s,x)-x);//копируем с позиции X,длинной до второй запятой//
x:=PosEx(',',s,x)+1;//ищем начало ьвторого числа
Edit3.Text:=Copy(s,x,Pos(')',s)-x);
Edit2.Text:=Trim(Edit2.Text);//убираем пробелы
Edit3.Text:=Trim(Edit3.Text);
end;