ValueListEditor Zeile löschen

[Bea]

Hallo,
was mache ich nur mit dem ValueListEditor falsch?
Ich habe einen ValueListEditor mit 2 Spalten (Nummer, Eintrag), die vom Benutzer gefüllt werden sollen.
In die 1. Spalte (Nummer) darf nur ein bestimmter Nummernkreis eingegeben werden können.
In der 2. Spalte (Eintrag) ist alles erlaubt.
Ist der Eingabewert der ersten Spalte falsch, möchte ich die gesamte Zeile löschen.
Dies prüfe ich im Ereignis OnValidate des ValueListEditors nun so ab.
Aber da krieg ich immer eine Zugriffsverletzung(ListenIndex überschreitet das Maximum).
Bin ich da auf dem Holzweg oder wiedermal viel zu umständlich oder was haut da nicht hin?

Delphi-Quellcode:

procedure TForm1.ValueListEditor1Validate(Sender: TObject; ACol,
  ARow: Integer; const KeyName, KeyValue: string);
begin

  if (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) > 191) and 
     (StrToInt(ValueListEditor1.Keys  [ValueListEditor1.Row]) < 1048576) then
  begin
    if (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) < 0) or 
       (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) > 191) then
    begin
      MessageDlg(ValueListEditor1.Keys[ValueListEditor1.Row] + 
                ' ist kein gültiger Wert !', mtError, [mbOK], 0);
      ValueListEditor1.Cells[ACol, ARow] := '';
      ValueListEditor1.DeleteRow(ValueListEditor1.Row);
      ValueListEditor1.Refresh;
    end;
  end else
  begin
    if (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) > 16785375) then
    begin
      MessageDlg(ValueListEditor1.Keys[ValueListEditor1.Row] + 
                ' ist kein gültiger Wert !', mtError, [mbOK], 0);
      ValueListEditor1.Cells[ACol, ARow] := '';
      ValueListEditor1.DeleteRow(ValueListEditor1.Row);
      ValueListEditor1.Refresh;
     end;
  end;
end;

Besten Dank für jede Hilfe!
CU Bea