var S,S1,S2,S3:String; begin S:='255,255,255'; S1:=Copy(S,1,3); S2:=Copy(S,4,3); S3:=Copy(S,9,3); end;