SelectDirectory Problem

[TK S 22]

Ich verzweifel echt grad...
Immerhin ich hab deinen Wink mit dem Zaunpfahl verstanden. nur geht jetz unten was nicht:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);

function FileContainsText(const Filename, SearchText: string;
                          CaseSensitive: Boolean = true): Boolean;
var sList: TStringlist;
begin
  sList := TStringlist.Create;
  try
    sList.LoadFromFile(Filename);
    if CaseSensitive then
      Result := AnsiContainsStr(sList.Text, SearchText)
    else
      Result := AnsiContainsText(sList.Text, SearchText);               //nun streich er mir die nächste Prozedur an.....also die hier nicht im code is aber der Fehler 
  finally                                                               //muss hier liegen...
    sList.Free;
  end;
    begin
  end;