[ecfisa]

Hola.

Según te entiendo, sería algo así:

Código Delphi [-]
procedure AddLocated(const FileName, Searched: string; Lines: TStrings);
var
  TS: TStrings;
  i : Integer;
begin
  TS := TStringList.Create;
  try
    TS.LoadFromFile(FileName);
    for i := 0 to TS.Count - 1  do
      if AnsiPos(Searched, TS[i]) <> 0 then
        Lines.Add(TS[i]);
  finally
    TS.Free;
  end;
end;

Ej. de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  AddLocated('C:\ARCHIVO.TXT', Edit1.Text,  Memo1.Lines);
end;

Saludos