курсач

procedure TFormMenu.ClearDictionary(var Dict: TValueListEditor; Count: Integer);
var
    I: Integer;
begin
    if (Dict.RowCount > 1) then
    begin
        if not(IsRowEmpty(Dict, (Dict.RowCount - 1))) then
        begin
            Dict.Row := 1;
            for I := Count downto 1 do
            begin
                Dict.DeleteRow(I);
            end;
        end;
    end;
end;