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:

procedure TForm1.Button1Click(Sender: TObject);
const SearchString = 'NET USE K: ';

var MyTextFileContent : TStringList;
    i,j              : Integer;
    tempStr, filename : String;
    ErstesLeerzeichen : Boolean;
begin
  filename:=edit1.Text;
  MyTextFileContent :=  TStringList.Create;
  try
    MyTextFileContent.LoadFromFile(filename);
  except
    Showmessage('Motz');
    MyTextFileContent.Free;
    exit;
  end;
  for i := 0 to MyTextFileContent.Count -1 do
    if pos(SearchString,MyTextFileContent[i]) <> 0 then
    begin
      tempStr := MyTextFileContent[i];
      delete(tempStr,1,pos(SearchString,MyTextFileContent[i])+length(SearchString)-1);
      if pos(' ', tempstr) <> 0 then  
        delete(tempstr,pos(' ',tempstr),1000);
      edit2.Text:=tempstr;
      MyTextFileContent.Free;
      exit;
    end;
  MyTextFileContent.Free;
end;					

1:
2:

MyMemo.Lines.LoadFromFile(DateiName)
MeineZeile := MyMemoLines[5]  //z.B.					

1:
2:
3:
4:
5:
6:

MyStringList.Create(self);
MyStringList.LoadFromFile(DateiName);
MeineZeile := MyMemoLines[5];  //z.B.
...
...
MyStringList.free;