procedure TForm1.FormShow(Sender: TObject);
var rliste :TStringList;
    i,i_rec: integer;

begin
  rliste := TStringList.Create;
  rliste.LoadFromFile('c:\test.txt');
  i_arr:= -1;
  i_rec:= -1;

  for i:= 0 to rliste.Count -1 do
  begin
    If not (i_rec+2 > rliste.Count) then
    begin
      i_rec := i_rec + 1;
      if (rliste.Strings[i_rec]= 'stelle') then
      begin
        i_rec := i_rec + 1;
        i_arr := i_arr +1;

        setlength(absatz_edit,length(absatz_edit)+1);
        absatz_edit[i_arr].zeile := TStringList.Create;
        absatz_edit[i_arr].zeile.Add(rliste.Strings[i_rec]);

        i_rec := i_rec + 1;
        setlength(absatz_mem,length(absatz_mem)+1);
        absatz_mem[i_arr].zeile := TStringList.Create;
        absatz_mem[i_arr].zeile.Add(rliste.strings[i_rec]);
      end else begin
        absatz_mem[i_arr].zeile.Append(rliste.Strings[i_rec]);
      end;
    end;
  end;

  memo1.text:= absatz_mem[0].zeile.Text;
  edit1.Text := absatz_edit[0].zeile.Text;

   showmessage(absatz_edit[0].zeile.Text+'1');
 // rliste.Free;
end;