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;