Порезать строчку

[KoBRaAndrey]

Строчка:
90182450,4495,16691776,'05b21b8deaf 6',95);
Нужно отдельно выризать:
4495
16691776
05b21b8deaf6

Помогите

[W0LF]

var
  Str: TStringList;
  text1, text2, text3: string;
begin
  Str := TStringList.Create;
  Str.Text := '90182450,4495,16691776,''05b21b8deaf 6'',95);';
  Str.Delimiter := ',';
  Str.DelimitedText := Str.Text;
  text1 := Str[1];
  text2 := Str[2];
  text3 := Copy(Str[3], 2, Length(Str[3]) - 2);
  ShowMessage(text1 + #13#10 + text2 + #13#10 +text3);
  Str.Free;

---------------------------
Project1
---------------------------
4495
16691776
05b21b8deaf6
---------------------------
OK
---------------------------

[KoBRaAndrey]

Спасибо

[raxp]

- удалить -