A ver si esto te sirve de ayuda. No lo he probado, así que a lo mejor hay algún error.
Supongo que los datos de la columna son enteros mayores que cero, si no es así, adáptalo a tu tipo de datos:int max=0;
for (int fila=0;fila<StringGrid1->RowCount;fila++) {
if (StringGrid1->Cells[COLUMNA][fila]>max
max=StringGrid1->Cells[COLUMNA][fila];
}
Edit1->Text=max;
Si no funciona avísame y lo reviso.
Un saludo.