1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TFFragen.Frage_speichern(Stelle:integer);
var I:Integer;
begin
  for i := 0 to Fr_MLoesung.Lines.Count - 1 do   // Lösungstext
    AFragen[Stelle].Loesung[i]:=Fr_MLoesung.Lines[i];
end;

procedure TFFragen.Frage_laden(Stelle:Integer);
var I:Integer;
begin
  for i := 0 to AFragen[Stelle].Loesung.Count - 1 do   // Lösungstext
    Fr_MLoesung.Lines.add(AFragen[Stelle].Loesung[i]);
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Liste := TStringlist.Create;
  Liste.AddStrings(Memo1.Lines);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.AddStrings(Liste);
end;

1:

  Liste.Text := memo1.Lines.Text;

1:
2:

  Memo1.Lines.LoadFromFile('C:\Datei.txt');
  Memo1.Lines.SaveToFile('C:\Datei.txt');

1:
2:

for i := 0 to Fr_MLoesung.Lines.Count - 1 do   // Lösungstext
    AFragen[Stelle].Loesung.Add(Fr_MLoesung.Lines[i]);