var
  i : integer;
  lMode: boolean;
  tempstr: String;

begin
    Memo1.Lines.LoadFromFile('파일명');
    lMode := False;
    for i := 0 to Memo1.Lines.Count-1 do begin
       tempstr:=Copy(Memo1.Lines[i],0,7); // 첫글자부터 7자리까지 카피.
      if tempstr = 'bbbb' then begin //카피한 글자와 비교. 새로 만들 파일의 시작부분.
        if lMode then begin
           MemoSave.Lines.SaveToFile('파일명'+IntToStr(j)+'.txt');
           MemoSave.Lines.Clear;
           MemoSave.Lines.Add(Memo1.Lines[i]);
           Inc(j);
          end
        else
          begin
           MemoSave.Lines.Clear;
           lMode := True;
           MemoSave.Lines.Add(Memo1.Lines[i]);
          end;
        end
      else

      if tempstr = 'dddd' then  // 새로만들 파일의 마지막부분
         begin

           MemoSave.Lines.Add(Memo1.Lines[i]);
           MemoSave.Lines.SaveToFile('파일명'+IntToStr(j)+'.txt');

           MemoSave.Lines.Clear;
           MemoSave.Lines.Add(Memo1.Lines[i]);

           Inc(j);
           lMode := False;

         end
        else

          MemoSave.Lines.Add(Memo1.Lines[i]);
    end;

    if lMode then
        MemoSave.Lines.SaveToFile('파일명'+IntToStr(j)+'.txt');
end;