procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if length(StringGrid1.cells[StringGrid1.col,StringGrid1.row]) = 3 then
if StringGrid1.col=StringGrid1.colCount-1 then
StringGrid1.col:=0
else
StringGrid1.col:=StringGrid1.col+1;
end;
