GroupboxCaption Problem

[fl63]

Hallo DPler!

Ich habe ein Problem.

Delphi-Quellcode:

procedure TForm1.speichernClick(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile('WareA.txt');
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit1.Text+#9+Edit2.Text);
  RichEdit1.Lines.SaveToFile('WareA.txt');
  RichEdit1.Clear;
  RichEdit1.Lines.LoadFromFile('WareB.txt');
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit3.Text+#9+Edit4.Text);
  RichEdit1.Lines.SaveToFile('WareB.txt');
  RichEdit1.Clear;
 end;

Die editboxen 1+2 sowie 3+4 befinden sich in Groupboxen 1 bzw. 2.
Die Caption Eigenschaft der jeweiligen Groupbox heißt WareA.txt bzw.WareB.txt.

Mein Ziel ist:
RichEdit1.Lines.LoadfromFile(Groupbox1.Caption)
RichEdit1.Lines.Append.....
RichEdit1.Lines.SaveToFile(Groupbox1.Caption)

auf diese Weise erhoffe ich mir eine Vereinfachung(for i=1 to Groupbox(i).Caption).

Bitte helft einem blutigen Anfänger!!