1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

procedure TBuchMain.Button2Click(Sender: TObject);   // übernehmen
var n : integer;
begin
  listbox3.Items[listbox3.itemindex] := edit1.Text;
  assignfile(t1, label30.caption + 'OUTTXT\FL.txt'); rewrite(t1);
  n := 0;
  repeat
    if listbox3.Items[n] <> ''  then
    begin                                     //  <--- muss weg
      writeln(t1, listbox3.items[n]);
      inc(n);
    end;                                      //  <--- weg, also inc(n) darf nicht geklammert sein  
  until n = listbox3.Items.Count;
  closefile(t1);
  listbox3.Clear;
  showmessage(inttostr(n) + ' Daten geschrieben');
  Fachleitungen1Click(Self);
  edit1.Text := '';
end;

procedure TBuchMain.Fachleitungen1Click(Sender: TObject);   // laden
var zei: string;
begin
  listbox3.Clear;
  assignfile(t1, concat(label30.caption, 'OUTTXT\FL.txt')); reset(t1);
    while not eof(t1) do  begin readln(t1, zei); listbox3.Items.add(zei); end;
  closefile(t1);
  checkbox7.checked := true; checkbox7click(self);
  SetLbWidth(listbox3);   //SetScrollWidth(listbox3);
  listbox3.Width := listbox3.Width + 50;
    if listbox3.Width > groupbox11.Width - 40 then groupbox11.Width := listbox3.Width+40;
end;
procedure TBuchMain.Fachleitungen2Click(Sender: TObject);  
begin  
  Fachleitungen1Click(Self);  
end;

procedure TBuchMain.Zeilelschen1Click(Sender: TObject);
begin
  if listbox3.Selected[listbox3.ItemIndex] then
    listbox3.Items[listbox3.ItemIndex] := '';
  Button2Click(Self);                                // Hier PRG-Absturz!! 
end;

procedure TBuchMain.Zeilehinzufgen1Click(Sender: TObject);
begin  
  listbox3.items.append(edit1.text);     
end;