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