[Страдалецъ]

Код:

Var
  File1, File2: TStringList;
begin
 File1 :=  TStringList.Create;
 File2 :=  TStringList.Create;
 try
  File1.LoadFromFile('c:\1.txt');
  File2.LoadFromFile('c:\2.txt');
  if Pos(File2.Text, File1.Text) > 0 then ShowMessage('Содержится');
 finally
  File2.Free;
  File1.Free;
 end;