>>374
s :string;
temp :string;

while(s <> '')
begin
temp := Copy(s,0,Pos(s,':'));

s := Copy(s,Pos(s,':'),Length(s));

end;

半分適当だから微調整はお願いね。