[icWasya]

как-то так

Код:

var
  S:String;
  S1,S2,S3:String;
  p:Integer;
begin
  S:='1,15,255';
  p:=pos(',',S);
  S1:=copy(S,1,p-1);
  S:=copy(S,P+1,100);//100-заведомо большое число
  S2:=Copy(S,1,p-1);
  S3:=Copy(S,p+1,100);
end;