[cotseec]

Код:

procedure TForm2.Button2Click(Sender: TObject);
var
  i,k:integer;
  tmp:string;
  BeginString,
  EndString:string;
  tmpListLines:TStringList;
begin
  tmpListLines:=TStringList.Create;
  tmpListLines.Delimiter:=' ';

  i:=0;
  while i<=Memo1.Lines.Count - 1 do
  begin
    tmp:=Memo1.Lines.Strings[i];
    k:=i+1;
    while k<=Memo1.Lines.Count - 1 do
    begin
      tmpListLines.Clear;
      tmpListLines.DelimitedText:=Memo1.Lines.Strings[k];

      BeginString:=tmpListLines.Strings[0]+tmpListLines.Delimiter+tmpListLines.Strings[1] ;
      EndString:=tmpListLines.Strings[2]+tmpListLines.Delimiter+tmpListLines.Strings[3];

      if (Pos(BeginString,tmp)>0) and
         (Pos(EndString,tmp)>0) then
         begin
          Memo1.Lines.Delete(i);
          break;
         end;
      inc(k);
    end;
    inc(i);
  end;

  tmpListLines.Free;
end;

Ограничение: строка обязательно должна быть вида ХХХХ ХХХХ ХХХХ ХХХХ, т.е. иметь минимум три пробела (чтобы заполнить четыре строки стринглиста)