Código Delphi [-] if (stringgrid1.Col = 2) then if length(stringgrid1.Cells[2, stringgrid1.row]) <= 50 then CharUpperBuff(@Key, 1) else Key := #0
if (stringgrid1.Col = 2) then if length(stringgrid1.Cells[2, stringgrid1.row]) <= 50 then CharUpperBuff(@Key, 1) else Key := #0