[fofka]

Благодарю!!! То что нужно. Все работает. Переделаю как мне нужно, и самое то. Может кому сгодится.

Код:

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,1);
  Edit9.Text := copy(n,m+2,1);
  Edit10.Text := copy(n,m+3,1);

ОГРОМНОЕ Спасибо.