Ups daran hatte ich garnicht gedacht. Klar darf man während des Laufes nix klicken.
Wie man einen Thread auslagert ist mir völlig schleierhaft. Ich werde nach einem Tuto suchen. Ist bestimmt irgendwo beschrieben. Bu* sind Buttons...
Also mein Conde sieht jetzt so aus:
Delphi-Quellcode:
begin
LblAchtung.Caption:='Bitte warten!';
BuExGr.Enabled:=False;
BuExport.Enabled:=False;
BuExit.Enabled:=False;
AuswExcelll.Refresh;
Setlength(Tab,1000,4);
for i:=0 to 999 do begin //Array Feldbreite bestimmen
for j:=0 to 3 do begin
Setlength(Tab[i,j], 10);
end;
end;
for i:=0 to 999 do begin //Array leer machen
for j:=0 to 3 do begin
Tab[i,j]:='';
end;
end;
und am Ende natürlich dann:
Delphi-Quellcode:
...
Setlength(Tab,1,1);
Excel := Unassigned;
BuExGr.Enabled:=True;
BuExport.Enabled:=True;
BuExit.Enabled:=True;
LblAchtung.Caption:='';
end;
... und funktioniert bestens. Ich bedanke mich bei allen.