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:

procedure TForm1.Schliessen(Sender: TObject; var Action: TCloseAction);
var button,i:integer;
  zahl,zahlende: string;
begin

 zahlende:='';
        for i:=0 to Form1.Listbox1.Items.Count-1 do   //das ist die listbox, wo man hinzufüger und löschen kann.
        begin
         zahlende:=zahlende+Form1.Listbox1.Items[i];
        end;
      
     zahl:='';
        for i:=0 to Form4.Listbox1.Items.Count-1 do   //das ist die listbox die nicht verändert wird 
                                                      //und die anfangswerte aufweist
        begin
         zahl:=zahl+Form4.Listbox1.Items[i];
        end;
  
 if (zahlende<>zahl)                  //wenn die beiden werte ungleich sind, dann soll er nach dem speichern fragen
 then begin
button:=Application.messagebox(PChar('Wollen Sie die Liste vor dem Schließen speichern?'), 'Hinweis',Mb_YESNO);

        case button of

        IDYES:
           begin
                Speichern(Sender);
           end;

        end; {of case}
       end; 

end;