1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.SpeichernClick(Sender: TObject);
  Var
    Datei: TFilestream;
    i, k: Integer;
begin
  For i:= Listbox1.Count-1 Downto 0 do begin
  if Listbox1.Selected[i] Then begin
    For k:= componentcount-1 DownTo 0 do begin
      if components[k] is TForm3 then begin
        if components[k].Name= Listbox1.Items.Strings[i] then begin
           SaveDialog.Initialdir:= getcurrentdir;
        if SaveDialog.Execute then begin
           Datei:= TFilestream.Create(SaveDialog.Filename,fmcreate or
                                      fmopenreadwrite);
           Zettel.Memo1.Lines.SaveToStream(Datei);
           freeandnil(Datei);
        end;
        end;
      end;
    end;
  end;
  end;
end;