Adatbevitel szabályozása DBGrid-en keresztül

procedure TForm1.Button1Click(Sender: TObject);
var h: THandle;
    kor:integer;
    hiba:boolean;
begin

    table1.first;
    hiba:=false;
    while (not table1.EOF) and (not hiba) do
    begin
      kor:=table1.FieldByName('ELETKOR').AsInteger;
      if (kor<6) or (kor>14) then hiba:=true else Table1.Next;
    end;

    if hiba then
    begin 
      MessageBox(Handle,
        'Az életkornak 6 és 14 év közé kell esni! Kérem javítsa ki!',
        'Hiba!',
        MB_OK+MB_ICONSTOP);
      Application.ProcessMessages;
      DBGrid1.SetFocus;
      DBGrid1.SelectedField:=DBGrid1.Fields[2];
      DBGrid1.EditorMode:=true;
      Application.ProcessMessages;
      h:=Windows.GetFocus;
      SendMessage(h, EM_SETSEL, 0, Length(DBGrid1.Fields[2].AsString));
    end else Close;
end;