Zugriffsverweigerung bei Tabellenaufruf

[Corny]

Vielen Dank für eure Antworten. Ich versuchs mal mit dem Text der procedure, in der es knallt:

Wäre super, wenn jemand etwas finden könnte!!!

Ich habe drangeschrieben, an welcher Stelle (11.Zeile von unten) er mir aussteigt und folgende Fehlermeldung ausgibt: Exception der Klasse EAccssViolation: Meldung: Zugriffsverletzung bei Adresse 004C189D in Modul [i]Programmname[\i].exe. Lesen von Adresse 00000000 Prozess wurde angehlaten.

Tabelle 20 wird vom Programm selber erstellt (createtable); würde helfen, wenn der Programmcode der Erzeugung dabei wäre?

Viele Grüße von Corny

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  lr,lz,lrs,lzf,indicat                           : Integer;
  label            100,110;
begin
  //***************************************************************
  OPT[1] := 1;
  OPT[2] := 1;
  OPT[3] := 1;
  GRRES[1] := 1;
  GRRES[2] := 1;
  GRRES[3] := 1;
  MATELSSL(Table7,Table8);
  //ALFA := 0.5;
  //EPSILON := 0.1;
  //**********************************************************************

  IUNGLZF := 0;
  KONVXZF(Table7);
  for lz := 1 to K do
  begin
    case OPT[lz] of
     1: KOMXMAX(Table1,lz);
     2: KOMXMIN(Table2,lz);
    end;                                                  //case
  end;
  IUNGL := 0;
  for lr := 1 to M do
  begin
    KONVXRS(lr);
    case NUMBEQ[lr] of
     1: KOEFRES1(Table2,lr);
     2: KOEFRES2(Table2,lr);
    end;                                                    //case
  end;
  DIFLOP(Table1,Table2);
  indicat := 1;
  if R = 1 then indicat := 2
  else
  if R > 1 then
  indicat := 3;
  case indicat of
    1: begin
        with Table5 do
        begin
         DataBaseName := 'TABFUZ';
         TableName := 'SIMPEIN'+IntToStr(K)+'B';
         TAB5CR(Table5);
         TB5FILL(Table5);
         TB5TST(Table5);
        end;
       end;
    2: begin
        with Table20 do
        begin
         DataBaseName := 'TABFUZ';
         TableName := 'SIMLMBDA';
         TAB20CR(Table20);
         TB20FILL(Table20);
         TB20TST(Table20);
        end;
        with Table21 do
        begin
         DataBaseName := 'TABFUZ';
         TableName := 'SIMPSHADOW';
         TAB21CR(Table21);
        end;
       end;
    3: begin
       with Table21 do
        begin
         Active := False; // !!!! HIER KNALLT`S !!!!!
         EmptyTable;
         TB21FILL(Table21);
         TB21TST(Table21);
        end;
        with Table20 do
        begin
         Active := False;
         EmptyTable;
        end;
       Batchmove1.Execute;
       end
     end;                              //case
  Table12.Active := True;
  Table12.Edit;
end;

end.