delphi StringGrid1获取指定列所有数据

procedure TForm1.Button5Click(Sender: TObject);

var

i:integer;

begin

for i:=0 to StringGrid1.rowCount-1 do

begin

   Memo1.lines.add(StringGrid1.Cells[9,i]);  //数字9为自定义列

end

end;