[satan]

Продолжу тему, мож пригодица, разбиение строки по определённому символу( в данном случае по ',')

 
program Splitting;
var
   StrArr : array[1..255] of string;
   str, smb : string;
   n, i: integer;
 
begin
 
 str := 'Вася,Петя,Коля';
 n := 1;
 
 for i := 0 to Length(str) -1 do
 begin
 smb := GetChar(str,i);
 
 if smb <> ',' then
 begin 
     StrArr[n] := StrArr[n] + smb; 
 end
else 
 begin
 n := n + 1;
 end;
end;
 
for i:=1 to n do drawText(StrArr[i],0,i*10 -10);
 
repaint;
delay(5000);
end.