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

procedure TForm1.Button3Click(Sender: TObject);
var sl: TStringList;
  zeilennr: integer;
begin
  sl:=TStringList.Create;

  try
    sl.LoadFromFile('c:\beispiel.txt');
    for zeilennr:=0 to sl.Count-1 do begin
      if sl[zeilennr]='Zweite Zeile' then
        edit1.Text:=sl[zeilennr+1];
    end;
  finally
    sl.free;
  end;                    

1:
2:

 
Memo1.Lines.LoadFromFile(<Filename>);                    

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 LoadText(const FileName, First, Last: String;
  const AStrings: TStrings);
var
  SL: TStringList;
  I: Integer;
  B: Boolean;
begin
  B := False;
  SL := TStringList.Create;
  with SL do begin
    try
      LoadFromFile(FileName);
      for I := 0 to Count - 1 do begin
        if  (not B)
        and (Pos(First, Strings[I]) > 0) then begin
          B := True;
          AStrings.Add(Copy(Strings[I], Pos(First, Strings[I]) + Length(First),
            Length(Strings[I])));
        end
        else begin
          if Pos(Last, Strings[I]) = 0 then
            AStrings.Add(Strings[I])
          else begin
            AStrings.Add(Copy(Strings[I], 1, Pos(Last, Strings[I]) - 1));
            Break;
          end;
        end;
      end;
    finally
      Free;
    end;
  end;
end;                    

1:
2:
3:
4:
5:

stringlist.loadfromfile

p:=pos("das was ich suche", stringlist.text);

copy(stringlist.text,p,length(stringlist.text));