{
OnGetEditText example
The following code lowercases the text for a string grid cell when the user begins to edit it.
} 
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Longint; var Value: string);
begin
  Value := AnsiLowerCase(Value);
end; 
