محمود جان، چرا لقمه را دور سرت چرخوندی؟
آقای کشاورز که راه بهتر را گفته که:

var

  MyStrLst: TStringList;

begin

  MyStrLst := TStringList.Create;

  MyStrLst.Delimiter := ',';

  MyStrLst.Text := '101,102,103';

  ShowMessage(MyStrLst.String[2]);

end;


یا علی... موفق باشی...