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

procedure TForm1.Edit2Change(Sender: TObject);
var i,a: Integer;

begin
    Memo1.Lines.LoadFromFile(DirectoryListBox3.Directory + '\' +  FileListBox3.Items.Strings[0]);
     Form1.Button7.Enabled := false;


        if Form1.Edit2.text <> '' then
         Form1.Button7.Enabled := false; 

     
    for a := 0 to Form1.memo1.Lines.Capacity -1 do

             if Form1.edit2.Text = Form1.memo1.Lines.Strings[a] then

      Form1.Button7.Enabled := true;
  end;					

1:

for a := 0 to Form1.memo1.Lines.Count -1 do					

1:
2:

                if Form1.Edit2.text <> '' then
         Form1.Button7.Enabled := false;					

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

procedure TForm1.Edit2Change(Sender: TObject); 
var i,a: Integer; 

begin 
  with Memo1 do
  begin
    Lines.LoadFromFile(DirectoryListBox3.Directory + '\' +FileListBox3.Items.Strings[0]); 
    Button7.Enabled:=False; 
    if (Edit2.Text='') then Exit; // kein Eintrag im Editfeld, also tschüss
    for a := 0 to Lines.Count-1 do if (Edit2.Text=Lines.Strings[a]) then
    begin
      Button7.Enabled:=True; 
      // da Eintrag gefunden, muss Schleife nicht mehr durchlaufen werden
      Break; 
    end; // for a
  end; // with
end;					

1:

Lines.LoadFromFile(DirectoryListBox3.Directory + '\' +FileListBox3.Items.Strings[0]);					

1:

 Lines.LoadFromFile(DirectoryListBox3.Directory + '\' +FileListBox3.Items.Strings[0]);					

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

procedure TForm1.Edit2Change(Sender: TObject);
var s:String;
begin
  s:=Edit2.Text;
  Button7.Enabled:=(Memo1.Lines.IndexOf(s)<>-1);
end;