[NumLock]

для начала так
сохранение и чтение:

Код:

Memo1.Lines.SaveToFile(FloatToStr(Date));
Memo1.Lines.LoadFromFile(FloatToStr(Date));

поиск фрагмента:

Код:

  if Memo1.Lines.IndexOf('я вчера пришел домой сильно на рогах, еле смог устоять на своих ногах')<>-1 then
    ShowMessage('найдено')
  else
    ShowMessage('не найдено');

поиск по дате:

Код:

var
  sr: TSearchRec;
begin
    if FindFirst('4087*', faAnyFile, sr) = 0 then
    begin
      repeat
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;