Способ 1. Правильный.
Распарсить строку.
Способ 2. Убогонький, если лень парсить ручками.
var
List : TStringList ;
S : String ;
begin
List := TStringList.Create ;
List.Delimiter := ',' ;
List.DelimitedText := '02,03,04,' ;
// а тут вытаскивай, что захочешь.
S := List.Strings[1] ; // получишь строку "03"
List.Free ;
end ;
Linux - must die
Долгих лет тебе, Билли !