[fofka]

Добрый всем вечер.
Есто такой вопрос. Получаю данные примерно в таком виде "#RID,OUT,0101000000000000000000". Я принимаю таким образом (сделал для примера).

Код:

var n : String;
    m :integer;
begin
  n := edit5.Text;
  m := pos(',',n);
  Edit6.Text := copy(n,0,m-1);
  n := copy(n,m+1,length(n));
  m := pos(',',n);
  Edit7.Text := copy(n,0,m-1);
  Edit8.Text := copy(n,m+1,length(n));

В Edit5 у меня "#RID,OUT,0101000000000000000000", соответсвенно в Edit6 я получаю "#RID", в Edit7 - "OUT", в Edit8 - "0101000000000000000000". А мне нужно в Edit8 - "0", в Edit9 - "1", в Edit10 - "0". То есть взять для каждого Edit8,9,10 первый, второй, третий знак после запятой. Скрин прилогается. Подскажите как правильно взять данные?