じゃあこんなかんじで
TStringList* Values;
for( int i = 0; i < 1500; i++ ){
　　Values->CommaText = memo1->Lines->Strings[ i ];
　　x->Add( Values->Strings[ 1 ].Trim() ); //2列目の情報
　　y->Add( Values->Strings[ 3 ].Trim() ); //4列目の情報
}